Make(delphi)
Add(MainForm,14869800,273,168)
{
 Left=20
 Top=105
 Width=388
 Height=188
 Caption="Key Windows and MS Office"
 BorderStyle=5
 Position=1
}
Add(VBJScript,6567760,469,203)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|8:onEvent1|
 Script=#27:Function doWork(Data,Index)|44:Set WshShell = CreateObject("WScript.Shell")|37:MicroSoft = "HKLM\SOFTWARE\Microsoft"|83:DigitalProductIdWindows = MicroSoft & "\Windows NT\CurrentVersion\DigitalProductId"|20:On Error Resume Next|43:Set Word = CreateObject("Word.Application")|85:DigitalProductIdOffice = MicroSoft & "\Office\" & word.Version & "\Registration\" & _|42:    word.ProductCode & "\DigitalProductId"|22:If Err.Number = 0 Then|13:    Word.Quit|64:    OfficeKey = GetKey(WshShell.RegRead(DigitalProductIdOffice))|27:    sys.onEvent1(OfficeKey)|4:Else|36:    msgbox "MS Office не установлен"|6:End If|15:On Error GoTo 0|1: |62:WindowsKey = GetKey(WshShell.RegRead(DigitalProductIdWindows))|23:sys.onEvent(WindowsKey)|13:End Function |24:Function GetKey(byval p)|33:    pc="BCDFGHJKMPQRTVWXY2346789"|17:    For i=0 To 28|11:        a=0|22:        For j=0 To 14 |28:            a=p(66-j)+a*256 |35:            p(66-j)=(a\24) And 255 |22:            a=a Mod 24|12:        Next|47:        ProductKey = Mid(pc,a+1,1) & ProductKey|44:        If (((i+2) Mod 6)=0) And (i<28) Then|17:            i=i+1|41:            ProductKey = "-" & ProductKey|14:        End If|8:    Next|23:    GetKey = ProductKey|12:End Function|
 link(onEvent,6221181:doText,[(516,209)(516,202)])
 link(onEvent1,8786394:doText,[(516,216)(516,258)])
}
Add(Edit,6221181,532,196)
{
 Left=10
 Top=30
 Width=360
 Text=""
}
Add(Edit,8786394,532,252)
{
 Left=10
 Top=80
 Width=360
 Text=""
}
Add(Label,4012497,462,140)
{
 Left=10
 Top=10
 Width=80
 Height=17
 Caption="Ключ Windows:"
}
Add(Label,9227353,462,147)
{
 Left=10
 Top=60
 Width=83
 Height=17
 Caption="Ключ MS Office:"
}
Add(Button,15363713,420,203)
{
 Left=255
 Top=115
 Width=115
 Caption="Получить ключи"
 link(onClick,6567760:doWork,[])
}