лицензионная прога

Всем привет.Поздравляю с новым годом.
У меня лицензионная прога установлена на комьютере в работе.
Могу я перенести эту прогу мою домашнюю компьютеру.
У меня есть установочный файл и ключ. Ключ для проги связан с железой.
Или можно обманут регистр, что у меня ключ тоже самое как в работе.
Я могу с редакторами просмотрет внутри прогу. Но нельзя изменить данные. Прогу можно 10 раз открывать и работает 10 минут (минут скрыто), после этого закрываеться. Идея моя. Программист не дает мне полного доступа.
Что мне делать.

вот
WorkGroup.Active = True
WorkGroup.SecurityFile = 'Security.shs'
WorkGroup.UserName = 'ABTest'
WorkGroup.UserPassword = 'hjZF^5Qc*Am1B!'
Left = 16
Top = 280
end
object DBBoot: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TBoot'
Left = 48
Top = 248
end
object DBContent: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TContent'
Left = 112
Top = 249
end
object DBContentTemp: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TContent'
Left = 112
Top = 217
end
object DBTest: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
EncodeKeyBlob = 'te$tb@z%***'
TableName = 'TTest'
Left = 80
Top = 249
end
object DBSettings: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TSettings'
Left = 48
Top = 280
end
object DBReport: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TReport'
Left = 80
Top = 280
end
object DBRecord: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TRecord'
Left = 112
Top = 280
end
object DBSettingsEditor: TShDBEditorDialog
DBFields = <
item
Actions = ca_Clear
Caption = 'Test count'
Hint = 'Test count to'
ImageIndex = 0
InputKind = [ik_NumberSystem]
Name = 'CountX'
MaxLength = 4
ScanFreeValue = True
ValueMax = 1000.000000000000000000
ValueMin = 3.000000000000000000
end
item
Actions = ca_Font
Caption = 'Window font'
Hint = 'Window font to'
ImageIndex = 1
Name = 'FontX'
ScanFreeValue = True
end
item
Caption = 'Random test'
Hint = 'Random test to'
Name = 'RandomX'
end
item
Caption = 'Not repeat'
Hint = 'Not repeat to'
Name = 'NoRepeatX'
end
item
Caption = 'Show help'
Hint = 'Show help to'
Name = 'HelpX'
end>
Images.ImageIndex = 1
Images.ImageList = Images
ImagesAction.ImageList = Images16
Query = DBSettings
Title = 'Settings editor'
Left = 48
Top = 314
end
object PM: TPopupMenu
Images = Images
OnPopup = PMPopup
Left = 289
Top = 9
object PM_Help: TMenuItem
Caption = 'Help to'
ImageIndex = 11
OnClick = PM_HelpClick
end
object PM_Next: TMenuItem
Caption = 'Next query'
ImageIndex = 14
OnClick = PM_NextClick
end
object PM_Line: TMenuItem
Caption = '-'
end
object PM_ScaleUp: TMenuItem
Caption = 'Scale up'
ImageIndex = 12
OnClick = PM_ScaleUpClick
end
object PM_ScaleDown: TMenuItem
Caption = 'Scale down'
ImageIndex = 13
OnClick = PM_ScaleDownClick
end
object PM_Line2: TMenuItem
Caption = '-'
end
object PM_ErrorSend: TMenuItem
Caption = 'Error send'
ImageIndex = 10
OnClick = PM_ErrorSendClick
end
end
object OnForm: TShOnForm
Fonts.Active = True
Fonts.Font.Charset = RUSSIAN_CHARSET
Fonts.Font.Color = clWindowText
Fonts.Font.Height = -16
Fonts.Font.Name = 'Century Gothic'
Fonts.Font.Style = []
Fonts.Help = 'Installed %s fonts. Please, restart program.'
Language.Active = True
Language.Propertys.Strings = (
'Caption'
'Help'
'Hint'
'Title'
'Text')
OneRun = True
Register.Active = True
Register.Dialog.DateScan = True
Register.Dialog.ID.Soft = 2
Register.Dialog.Key = '@bT*$*t2:0:1:6...'
Register.Dialog.Trial.Caption = 'Trial|Accept'
Register.Dialog.Trial.Company = '(C) SHAMS 2009 - [Year]'
Register.Dialog.Trial.DayCount = 10
Register.Dialog.Trial.Help =
'Error of date|Limited dates of %s to %s|This code of serail %s. ' +
'Unlimited, register date of %s|This code of serail %s. Limited d' +
'ates of %s to %s'
Register.Dialog.Trial.Images.ImageIndex = 7
Register.Dialog.Trial.Images.ImageList = Images
Register.Dialog.Trial.ImagesClear.ImageIndex = 0
Register.Dialog.Trial.ImagesClear.ImageList = Images16
Register.Dialog.Trial.RunCount = 30
Register.Dialog.Trial.Second = 600
Register.Dialog.Trial.Site = 'www.abtest.uz'
Register.Dialog.Trial.Text = 'Thank you registered|Your period of %s to %s'
Splash.Active = True
Splash.Dialog.Background = 14808056
Splash.Dialog.Color = 4209735
Splash.Dialog.Font.Charset = RUSSIAN_CHARSET
Splash.Dialog.Font.Color = clWindowText
Splash.Dialog.Font.Height = -16
Splash.Dialog.Font.Name = 'Century Gothic'
Splash.Dialog.Font.Style = []
Splash.Dialog.Speed = 5.500000000000000000
Splash.Dialog.Title = 'Please, wait...'
OnSplash = OnFormSplash
Left = 163
Top = 9
end
object ReportDialog: TShReportDialog
AutoSave = True
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Century Gothic'
Font.Style = []
Images.ImageIndex = 15
Images.ImageList = Images
Title = 'History list'
Left = 320
Top = 10
end
end

Добавлено через 1 минуту

Цитата:

Сообщение от feliks77 (Сообщение 5217102) Всем привет.Поздравляю с новым годом. У меня лицензионная прога установлена на комьютере в работе. Могу я перенести эту прогу мою домашнюю компьютеру. У меня есть установочный файл и ключ. Ключ для проги связан с железой. Или можно обманут регистр, что у меня ключ тоже самое как в работе. Я могу с редакторами просмотрет внутри прогу. Но нельзя изменить данные. Прогу можно 10 раз открывать и работает 10 минут (минут скрыто), после этого закрываеться. Идея моя. Программист не дает мне полного доступа. Что мне делать. вот WorkGroup.Active = True WorkGroup.SecurityFile = 'Security.shs' WorkGroup.UserName = 'ABTest' WorkGroup.UserPassword = 'hjZF^5Qc*Am1B!' Left = 16 Top = 280 end object DBBoot: TShADOQuery Connection = DBConnectionTest Parameters = <> TableName = 'TBoot' Left = 48 Top = 248 end object DBContent: TShADOQuery Connection = DBConnectionTest Parameters = <> TableName = 'TContent' Left = 112 Top = 249 end object DBContentTemp: TShADOQuery Connection = DBConnectionTest Parameters = <> TableName = 'TContent' Left = 112 Top = 217 end object DBTest: TShADOQuery Connection = DBConnectionTest Parameters = <> EncodeKeyBlob = 'te$tb@z%***' TableName = 'TTest' Left = 80 Top = 249 end object DBSettings: TShADOQuery Connection = DBConnection Parameters = <> TableName = 'TSettings' Left = 48 Top = 280 end object DBReport: TShADOQuery Connection = DBConnection Parameters = <> TableName = 'TReport' Left = 80 Top = 280 end object DBRecord: TShADOQuery Connection = DBConnection Parameters = <> TableName = 'TRecord' Left = 112 Top = 280 end object DBSettingsEditor: TShDBEditorDialog DBFields = < item Actions = ca_Clear Caption = 'Test count' Hint = 'Test count to' ImageIndex = 0 InputKind = [ik_NumberSystem] Name = 'CountX' MaxLength = 4 ScanFreeValue = True ValueMax = 1000.000000000000000000 ValueMin = 3.000000000000000000 end item Actions = ca_Font Caption = 'Window font' Hint = 'Window font to' ImageIndex = 1 Name = 'FontX' ScanFreeValue = True end item Caption = 'Random test' Hint = 'Random test to' Name = 'RandomX' end item Caption = 'Not repeat' Hint = 'Not repeat to' Name = 'NoRepeatX' end item Caption = 'Show help' Hint = 'Show help to' Name = 'HelpX' end> Images.ImageIndex = 1 Images.ImageList = Images ImagesAction.ImageList = Images16 Query = DBSettings Title = 'Settings editor' Left = 48 Top = 314 end object PM: TPopupMenu Images = Images OnPopup = PMPopup Left = 289 Top = 9 object PM_Help: TMenuItem Caption = 'Help to' ImageIndex = 11 OnClick = PM_HelpClick end object PM_Next: TMenuItem Caption = 'Next query' ImageIndex = 14 OnClick = PM_NextClick end object PM_Line: TMenuItem Caption = '-' end object PM_ScaleUp: TMenuItem Caption = 'Scale up' ImageIndex = 12 OnClick = PM_ScaleUpClick end object PM_ScaleDown: TMenuItem Caption = 'Scale down' ImageIndex = 13 OnClick = PM_ScaleDownClick end object PM_Line2: TMenuItem Caption = '-' end object PM_ErrorSend: TMenuItem Caption = 'Error send' ImageIndex = 10 OnClick = PM_ErrorSendClick end end object OnForm: TShOnForm Fonts.Active = True Fonts.Font.Charset = RUSSIAN_CHARSET Fonts.Font.Color = clWindowText Fonts.Font.Height = -16 Fonts.Font.Name = 'Century Gothic' Fonts.Font.Style = [] Fonts.Help = 'Installed %s fonts. Please, restart program.' Language.Active = True Language.Propertys.Strings = ( 'Caption' 'Help' 'Hint' 'Title' 'Text') OneRun = True Register.Active = True Register.Dialog.DateScan = True Register.Dialog.ID.Soft = 2 Register.Dialog.Key = '@bT*$*t2:0:1:6...' Register.Dialog.Trial.Caption = 'Trial|Accept' Register.Dialog.Trial.Company = '(C) SHAMS 2009 - [Year]' Register.Dialog.Trial.DayCount = 10 Register.Dialog.Trial.Help = 'Error of date|Limited dates of %s to %s|This code of serail %s. ' + 'Unlimited, register date of %s|This code of serail %s. Limited d' + 'ates of %s to %s' Register.Dialog.Trial.Images.ImageIndex = 7 Register.Dialog.Trial.Images.ImageList = Images Register.Dialog.Trial.ImagesClear.ImageIndex = 0 Register.Dialog.Trial.ImagesClear.ImageList = Images16 Register.Dialog.Trial.RunCount = 30 Register.Dialog.Trial.Second = 600 Register.Dialog.Trial.Site = 'www.abtest.uz' Register.Dialog.Trial.Text = 'Thank you registered|Your period of %s to %s' Splash.Active = True Splash.Dialog.Background = 14808056 Splash.Dialog.Color = 4209735 Splash.Dialog.Font.Charset = RUSSIAN_CHARSET Splash.Dialog.Font.Color = clWindowText Splash.Dialog.Font.Height = -16 Splash.Dialog.Font.Name = 'Century Gothic' Splash.Dialog.Font.Style = [] Splash.Dialog.Speed = 5.500000000000000000 Splash.Dialog.Title = 'Please, wait...' OnSplash = OnFormSplash Left = 163 Top = 9 end object ReportDialog: TShReportDialog AutoSave = True Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Century Gothic' Font.Style = [] Images.ImageIndex = 15 Images.ImageList = Images Title = 'History list' Left = 320 Top = 10 end end

Цитата:

Сообщение от feliks77 (Сообщение 5217102) Register.Dialog.Trial.DayCount = 10 Register.Dialog.Trial.RunCount = 30 Register.Dialog.Trial.Second = 600

Вот нужный нам адресс