เมื่อช่วงงาน com world เพื่อนผมไปถอย notebook มาใหม่ แล้วในงานเค้าแถม windows xp pro แท้ให้ !!!
ผมก็เลยได้โอกาสทำ windows ตัวที่ใช้อยู่ที่ให้เป็นของแท้ซะที แต่ประเด็นคือว่าแผ่น windows ที่เค้าแถมมาให้มัน builtin cd-key ลงไปเลย
ผมก็เลยต้องมานั่งหาวิธีแงะเอา cd key ออกมาจาก windows ที่รันอยู่ ซึ่งจากการหาข้อมูลก็พบว่า
- cd key ถูกเก็บไว้ใน registry ของ windows
- มันถูก encode ไว้

แล้วก็พบว่ามีโปรแกรมที่เอาไว้หา cd key ให้โหลดใช้ได้อยู่มากมาย แต่ผมคิดว่า ถ้ามันแค่เอาออกมาจาก registry แล้วก็ decode เนี่ย
เราน่าจะหา source code ใช้เองได้ แล้วผมก็ได้ source code มาเป็นที่เรียบร้อย ดังนี้ครับ

[hide=20]
[code]
use strict;
use Win32::TieRegistry;

# Get the Windows XP CD Key
print &getXPkey("HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\\\DigitalProductId");

# Get Office 2003 CD Key
# You need to get the GUID which is different on every machine
#my @office = $Registry->{"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\11.0\\Registration"}->SubKeyNames;
#print &getXPkey("HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\11.0\\Registration\\$office[0]\\\\DigitalProductId");

sub getXPkey {