Re: odzyskanie klucza MS Office 2000

1634Racine log(in):
> Tomek in news:4d3eb4e7$0$2488$65785112@news.neostrada.pl :
>> W dniu 2011-01-25 11:50, Jacek pisze:
>>> Dnia Tue, 25 Jan 2011 11:20:33 +0100, 1634Racine napisał(a):
>>>> czy znacie jakis (darmowy) program do detekcji klucza
>>>> _zainstalowanego_ MS Office 2000 pro?
>>>> (productkey z nirsoftu podaje tylko ID; chodzi o _klucz_ )
>>> Dziwne.
>>> U mnie Win7 i Off 2007 pokazuje.
>> Chodzi o 2000. Słownie: Dwa Tysiące. Większość innych wersji jest do
>> odzyskania, a O22k jest oporny. Coś mi się kojarzy, że kiedyś widziałem
>> jakiś artykuł w necie, że klucz O2k nie jest nigdzie przechowywany -
>> ani w formie jawnej, ani zakodowanej, więc jego odzyskanie jest
>> niemożliwe - ale nie pamiętam gdzie to widziałem. Pojawiali się tacy,
>> którzy twierdzili, że to potrafią, ale nigdy nie widziałem tego w
>> rzeczywistości.
> niestety [dla mnie] - najprawdopodobniej masz racje; bowiem kiedys post w
> tym kierunku popełnil byl Piotr P.,ale poniewaz nie jestem tego tak na
> 100% pewien [że nie można odzyskać klucza], to i pytam.

Hi!
Jak jest PID/GUID to i klucz można odzyskać :-)
Problemem jest tylko to, że nie znam (bo nie musiałem/nie potrzebowałem
nigdy odzyskiwać klucza OFF2k) zasady dekodowania PID czyli:
1. Jeżeli jest taka sama jak w nowszych od 2k to po podstawieniu
odpowiednich ścieżek może pomoże skrypt'cik vbs jn. ;-)

---
 Dim Act, Fso, KeyOff, strOffKey
  Set Act = CreateObject("WScript.Shell")
  Set Fso = CreateObject("Scripting.FileSystemObject")
   strOffKey = Act.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\[tu 
dot. nr]\Registration\{[tu dot. GUID]}\ProductName")
   KeyOff = 
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{[tu 
dot.GUID]\ProductID"
   Function GetKey(rpk)
    Const rpkOffset=52:m=28
     szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
    Do
     dwAccumulator=0 : b=14
     Do
      dwAccumulator=dwAccumulator*256
      dwAccumulator=rpk(b+rpkOffset)+dwAccumulator
      rpk(b+rpkOffset)=(dwAccumulator\24) and 255
      dwAccumulator=dwAccumulator Mod 24
      b=b-1
     Loop While b>=0
       m=m-1 : 
szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
      If (((29-m) Mod 6)=0) And (m<>-1) Then
       m=m-1 : szProductKey="-"&szProductKey
      End If
     Loop While m>=0
    GetKey=szProductKey
   End Function
MsgBox "" & GetKey(Act.RegRead(KeyOff)), 0 + 48 + 0, "Office2k_Key      by 
_MB - 05.2k7 "
---
2. Ostatecznie można skorzystać z:
http://office.microsoft.com/pl-pl/word-help/wymienianie-utraconych-kluczy-produktow-pakietu-office-HA001150834.aspx
P.S.
3. Dekodera PID, który znam nie polecam, bo zawiera konia trojańskiego.
4. Gdzieś kiedyś widziałem metodę instalacji 2k bez klucza, ale ona jest 
nielegalna ... zatem zapomniałem o niej !:-)
-- 
Be Enjoy!