Un cordial saludos a todos los del foro,he estado luchando por decifrar el product key del Windows(sacar el numero de serie) por medio de Visual Basic. Necesito un poco de
para poder terminar mi proyecto y poder
se que es trampa pero ya me desespero ya llevo 5 meses y no lo he podido resolver espero que me puedan auxilar a qui les dejo mi codigo de como lo etsoy realizando
espero su ayuda que me puedan ofrecer
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 Function RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'"RegOpenKeyB" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Private Sub CmdAceptar_Click()
End
End Sub
Private Sub Form_Load()
Dim Usuario As String
Dim Organizacion As String
Dim Producto As String
Dim Licencia As String
Dim Licencia1 As Long
Dim Longitud As Long
Dim Serie As Long
Dim Tipo As Long
Dim hKey As Long
Dim Tipo1 As Boolean
Dim x As Long
Dim strTextCodificar As String
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = &H1
Const REG_Binary = &H3
x = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion", hKey) 'Linea de código a modificar en caso de error.
Usuario = Space$(256)
Longitud = Len(Usuario)
x = RegQueryValueEx(hKey, "RegisteredOwner", 0, Tipo, ByVal Usuario, Longitud)
If x = 0 And Tipo = REG_SZ And Longitud > 1 Then
Usuario = Left$(Usuario, Longitud - 1)
Else
Usuario = "Desconocido"
End If
Organizacion = Space$(256)
Longitud = Len(Organizacion)
x = RegQueryValueEx(hKey, "RegisteredOrganization", 0, Tipo, ByVal Organizacion, Longitud)
If x = 0 And Tipo = REG_SZ And Longitud > 1 Then
Organizacion = Left$(Organizacion, Longitud - 1)
Else
Organizacion = "Desconocido"
End If
Producto = Space$(256)
Longitud = Len(Producto)
x = RegQueryValueEx(hKey, "ProductName", 0, Tipo, ByVal Producto, Longitud)
If x = 0 And Tipo = REG_SZ And Longitud > 1 Then
Producto = Left$(Producto, Longitud - 1)
Else
Licencia = "Desconocido"
End If
Licencia = Space$(256)
Longitud = Len(Licencia)
x = RegQueryValueEx(hKey, "LicenseInfo", 0, Tipo, ByVal Licencia, Longitud)
If x = 0 And Tipo = REG_Binary And Longitud > 1 Then
Licencia = Left$(Licencia, Longitud - 1)
Else
Licencia = "Desconocido"
End If
Label1.Caption = "Usuario: " & Usuario
Label2.Caption = "Empresa: " & Organizacion
Label3.Caption = "Version del Windows: " & Producto
Text1.Text = "N° de Serie: " & Licencia
x = RegCloseKey(hKey)
End Sub
Public Function Crypt(Text As String) As String
'
'
'
Dim strTempChar As String 'Declaración de la variable
'Crea un ciclo para cada uno de los caracteres dentro de la cadena
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < 128 Then
strTempChar = Asc(Mid$(Text, i, 1)) + 128
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
strTempChar = Asc(Mid$(Text, i, 1)) - 128
End If
Mid$(Text, i, 1) = Chr(strTempChar)
Next i
'Indica cual es la funcion de crypt
Crypt = Text
'
End Function
Private Sub cmdDecrypt_Click()
Dim strTextCodificar As String 'Declaracion de la variable
strTextCodificar = Text1.Text
Crypt strTextCodificar 'Desencriptacion de la variable
Text1.Text = strTextCodificar 'Mostrar el resultado de la desencriptación
Text1.Text = strTextCodificar
'
End Sub
Private Sub cmdDecrypt2_Click()
Dim strTextCodificar As String 'Declaracion de la variable
strTextCodificar = Text1.Text
Crypt strTextCodificar 'Desencriptacion de la variable
Text1.Text = strTextCodificar 'Mostrar el resultado de la desencriptación
Label4.Caption = strTextCodificar
'
End Sub
Ocupo 4 label, un textbox, 2 commandButton yo tambien segire
para que salga mi proyecto
