Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-06-2007
Avatar de Wonni
Wonni Wonni is offline
Miembro
 
Registrado: abr 2006
Posts: 261
Poder: 19
Wonni Va por buen camino
Averiguar por codigo el numero de serie del Windows XP

hola;

En el registro no lo veo, pero este programita si consigue extraerlo. ¿Alguien sabe donde se esconde para poder acceder con Delphi?
Responder Con Cita
  #2  
Antiguo 06-06-2007
tito_lolo tito_lolo is offline
Registrado
 
Registrado: jun 2007
Posts: 4
Poder: 0
tito_lolo Va por buen camino
Te adjunto una libreria que te permite sacer la Key de Windows XP, Windows 2000 y Office XP/2003.

Saludos
Archivos Adjuntos
Tipo de Archivo: zip MSProdKey.zip (2,2 KB, 80 visitas)
Responder Con Cita
  #3  
Antiguo 06-06-2007
Avatar de Wonni
Wonni Wonni is offline
Miembro
 
Registrado: abr 2006
Posts: 261
Poder: 19
Wonni Va por buen camino
Cita:
Empezado por Wonni
En el registro no lo veo
Me corrijo. He estado viendo el .pas de tu libreria y el key de Windows si sabia que estaba en esa clave, pero no sabia como obtenerlo.

Muchas gracias tito_lolo funciona perfectamente.
Responder Con Cita
  #4  
Antiguo 27-04-2010
cobretti cobretti is offline
Registrado
 
Registrado: abr 2010
Posts: 3
Poder: 0
cobretti Va por buen camino
Cita:
Empezado por Wonni Ver Mensaje
Me corrijo. He estado viendo el .pas de tu libreria y el key de Windows si sabia que estaba en esa clave, pero no sabia como obtenerlo.

unciona perfectamente.

Hola Wonni, me puedes orientar un poco del proceso de obtención del nº.

Se puede sacar de un disco con xp pero sin arrancar desde el.?
Responder Con Cita
  #5  
Antiguo 27-04-2010
Avatar de Wonni
Wonni Wonni is offline
Miembro
 
Registrado: abr 2006
Posts: 261
Poder: 19
Wonni Va por buen camino
Post

Hola Cobretti;

Para extraer el número de serie mediante la libreria "MSProdKey.pas" tan solo tienes de incluirla en tu proyecto y utilizar la función View_Win_Key, por ejemplo:

ShowMessage(View_Win_Key);

En cuanto a lo de hacerlo desde otro disco, me imagino que quieres decir leer el registro de otra instalación ¿no?, pues la verdad no tengo ni idea. Una vez lei algo de leer el registro desde linux, pero no se. Si averiguo algo lo posteo.

Un saludo
Responder Con Cita
  #6  
Antiguo 27-04-2010
cobretti cobretti is offline
Registrado
 
Registrado: abr 2010
Posts: 3
Poder: 0
cobretti Va por buen camino
Gracias por tu prota respuesta, compañero, pero me temo que estoy en nivel cero patatero, en cuanto al delphi se refiere.
Lo mío no es la programación, sinó precisamente lo contrario.

He conseguido e instalado la versión delphi 7, y haciéndo doble clic en la librería msprodkey.pas, se abre y la veo, pero hasta aquí mi conocimiento sobre esto.
Si no te fuese moléstia y fuese una cosa sencilla o rápida de explicar, te agradecería me comentases como hacer rodar la librería, para sacar el nº. Lo de sacarlo de otro disco, son pruebas que estoy haciéndo y sacando esto me saldrá lo otro, ya lo postearé.

En fin perdona las moléstias y gracias.
Responder Con Cita
  #7  
Antiguo 27-04-2010
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 19
Chris Va por buen camino
Cita:
Empezado por cobretti Ver Mensaje
Gracias por tu prota respuesta, compañero, pero me temo que estoy en nivel cero patatero, en cuanto al delphi se refiere.
Lo mío no es la programación, sinó precisamente lo contrario.

He conseguido e instalado la versión delphi 7, y haciéndo doble clic en la librería msprodkey.pas, se abre y la veo, pero hasta aquí mi conocimiento sobre esto.
Si no te fuese moléstia y fuese una cosa sencilla o rápida de explicar, te agradecería me comentases como hacer rodar la librería, para sacar el nº. Lo de sacarlo de otro disco, son pruebas que estoy haciéndo y sacando esto me saldrá lo otro, ya lo postearé.

En fin perdona las moléstias y gracias.
Y que es precisamente lo contrario de la programación? La ingeniería inversa, el crack, hack, etc.?
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #8  
Antiguo 27-04-2010
cobretti cobretti is offline
Registrado
 
Registrado: abr 2010
Posts: 3
Poder: 0
cobretti Va por buen camino
Cita:
Empezado por Chris Ver Mensaje
Y que es precisamente lo contrario de la programación? La ingeniería inversa, el crack, hack, etc.?

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.
Responder Con Cita
  #9  
Antiguo 27-04-2010
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 19
Chris Va por buen camino
Cita:
Empezado por cobretti Ver Mensaje
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.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #10  
Antiguo 27-04-2010
Avatar de Wonni
Wonni Wonni is offline
Miembro
 
Registrado: abr 2006
Posts: 261
Poder: 19
Wonni Va por buen camino
Voy a ponerte un paso a paso, y de paso te lo paso en un zip. En cuanto lo tenga lo posteo...
Responder Con Cita
  #11  
Antiguo 28-04-2010
Avatar de Wonni
Wonni Wonni is offline
Miembro
 
Registrado: abr 2006
Posts: 261
Poder: 19
Wonni Va por buen camino
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
Responder Con Cita
  #12  
Antiguo 28-04-2010
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 22
AzidRain Va camino a la fama
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
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
  #13  
Antiguo 28-04-2010
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.494
Poder: 21
MAXIUM Va camino a la fama
Cita:
Empezado por AzidRain Ver Mensaje
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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Tomar numero de serie... Perio Varios 6 09-08-2005 17:49:49
Averiguar el número de repeticiones de un caracter Javi2 Varios 4 14-12-2004 11:22:20
Numero serie monitor prodigios Varios 4 04-05-2004 10:59:42
Averiguar el número de lineas de un archivo de texto Lionel Varios 1 29-03-2004 13:47:05
Número de Serie HDD en Red ogorut Varios 0 04-12-2003 13:50:40


La franja horaria es GMT +2. Ahora son las 01:10:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi