Averiguar por codigo el numero de serie del Windows XP

[[Chris]]

Empezado por cobretti

Qué es lo que ejecuta la programación??? y que sin ello esta, no vale para nada??

A lo que yo llamo lo contrario, es a la maquinaria, HARD, lo que puedes tocar y lo que se avería y hay que arreglar.

mmm pues yo veo al HARD como un complemento del sistema. No lo contrario de la programación. Una computadora no sería computadora sino existieran estos dos elementos, el hardware y las instrucciones lógicas para usarlo (programación).

saludos.

[Wonni]

Voy a ponerte un paso a paso, y de paso te lo paso en un zip. En cuanto lo tenga lo posteo...

[Wonni]

1. Crea una carpeta donde guardarás todos los archivos del proyecto de Delphi 7 que vas a trabajar.

2. Copia en esa carpeta el archivo "MSProdKey.pas"

3. En Delphi, abre la ventana de código (pulsa F12) y añade a Uses la libreria en cuestión:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, XPMan, ExtCtrls, MSProdKey,
  ClipBrd, ShellApi;

4. Vete al Menú "Project" -> "Options" -> Pestaña "Directories/Conditionals" -> En "Output directory" y Unit Output directory" pones la ruta de la carpeta donde has guardado el proyecto. Puedes buscarla pulsando el pequeño botón a la derecha de cada opción.

5. Te vas al menú "File" -> "Save All" y en la primera ventana que te sale, guardas el Unit1.pas como 'FormPrincipal' por ejemplo y el proyecto con el nombre que tu quieras darle al programa, por ejemplo: "GetWinXpSerial".

6. Colocas un edit y un botón en el form. Y al Botón le pones el siguiente código: "

Código Delphi [-]
ShowMessage(View_Win_Key);
Edit1.Text := View_Win_Key;

View_Win_Key es una función que devuelve un String (una cadena de caracteres). Esta cadena es el número de serie del XP.

7. Le das otra vez a Save All para guardar todo y ya está


En el siguiente enlace, puedes descargarte un ejemplo hecho por mi. El proyecto Delphi se llama XP_Serial_Number.dpr e incluye el exe con el mismo nombre. También incluye la libreria:

http://www.megaupload.com/?d=BUUIP8DV


Espero haberte ayudado. Cualquier duda, ya sabes...



Un saludo



P.D: Hacía tiempo que no utilizaba esta cuenta. Actualmente mi nick aquí es "maiquemasque". Pero me hizo ilusión volver a escribir como wonni, jeje. Un saludo a todo el Club

[[AzidRain]]

y para que leches es útil obtener el key de un windows...salvo para...bueno...ya lo dijo chris...y eso de no se nada de delphi nomas quiero vero como crackear x y o z da lástima

[MAXIUM]

Empezado por AzidRain

y para que leches es útil obtener el key de un windows...salvo para...bueno...ya lo dijo chris...y eso de no se nada de delphi nomas quiero vero como crackear x y o z da lástima

A mi me a sido útil para verificar que el equipo intervenido, consta de una serial valida y coincidente con la licencia adquirida legalmente por el usuario.