// print windows activation code

r:=reg("HKLM:System\CurrentControlSet\Control\ComputerName\ComputerName");
nm:=r["ComputerName"];
out << nm << ' : ';

hh:={	'B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'M', 'P', 'Q', 'R', 
        'T', 'V', 'W', 'X', 'Y', '2', '3', '4', '6', '7', '8', '9' };

r=reg("HKLM:SOFTWARE\Microsoft\Windows NT\CurrentVersion");
b:=r['DigitalProductId'];

a:=[];
for(i:=0x34;i<0x43;i++) a << b.get(i,'U1'); 

s:='';

for(i:=29-1;i>=0;i--){
  if((i+1)%6==0) s='-'\s
  else {
    x:=0; c:='?';
    for(j:=#a-1; j>=0; j--){ y:=(x*256)+a[j]; a[j]=(y/24)%256; x=y%24; c=hh[x]; };
	s=c\s;
	};
  };	

out << s << eol;

log("xp.keys") << nm\char(9)\s\eol;