今天的成果，送给喜欢Perl的朋友

效果如下：

代码文件PDK9.2.1_Lic.py内容如下：

# -*- coding: utf-8 -*- 
import datetime
import hashlib

str = "SECRETKGBKEY|PDK9|ExpirationDate#99-99-9999|IssuedDate#%s|" \
      "LicenseType#Commercial|Licensee#%s|NumberOfCPUs#99|" \
      "SerialNo#%s|UpdatesUntil#99-99-9999|UserId#%s|UserName#%s"
IssuedDate = datetime.datetime.now().strftime("%d-%m-%Y")

UserName = raw_input('请输入用户名(必填)：')
Licensee = UserName
UserId = raw_input('请输入用户ID(必填)：')              
SerialNo = raw_input('请输入序列号(必填)：')            

regcode = str % (IssuedDate, Licensee, SerialNo, UserId, UserName)

md5 = hashlib.md5(regcode).hexdigest()

f = file("ActiveState.lic", "w")
f.write(regcode.replace("SECRETKGBKEY", md5))
f.close()
print('当前目录生成了授权文件：ActiveState.lic')
print('WIN 7用户将授权文件放置在C:\Users\用户名\AppData\Roaming\ActiveState\ 目录下')
print('WIN XP 用户将授权文件放置在C:\Document and Settings\用户名\Application Data\ActiveState\ 目录下')
raw_input('press any key to exit!');

有喜欢的朋友就拿去用吧，如果不合规矩请告诉我，我删贴。

========================================================

今天(2015-01-25)跑去官网下载了最新版本的，64为也是可以用的，哇咔咔。。爽。