Лицензионная программа

[feliks77]

Всем привет.Поздравляю с новым годом.
У меня лицензионная прога установлена на комьютере в работе.
Могу я перенести эту прогу мою домашнюю компьютеру.
У меня есть установочный файл и ключ. Ключ для проги связан с железой.
Или можно обманут регистр, что у меня ключ тоже самое как в работе.
Я могу с редакторами просмотрет внутри прогу. Но нельзя изменить данные. Прогу можно 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


Register.Dialog.Trial.DayCount = 10
Register.Dialog.Trial.RunCount = 30
Register.Dialog.Trial.Second = 600
Вот нужный нам адресс

[Nozorrog]

Защита бывает разной и неочевидной очень часто. К тому же, многие авторы софта используют несколько защит одновременно.
Поэтому начать нужно с названия программы и, если возможно, ссылки на дистрибутив. Ключ и другие способы лицензирования выкладывать не нужно.
Удачи :-))

[feliks77]

вот ссылка на дистрибутив
http://dfiles.ru/files/gxzkw4g7d

[master05]

а, если эту програму, сделать портабельную версию, может получится пользоваться ею на другом компьютере.

[feliks77]

мне нужна это портабельная версия как это сделать?

[Nozorrog]

Для этого есть много программ - хороших и разных:
http://pcsecrets.ru/soft/poleznye-programmy/programmy-dlya-sozdaniya-portable-prilozhenij.html
Удачи :-))

[feliks77]

с этих программам пробовал не получаеться. Кто может мне помочь?
Программа для крекеров

Добавлено через 23 минуты
Лицензионную программу купиль. Его установиль на ноут. для него есть ключ работаеть только в этом ноутбуке. Как использовать эту ключ на другом комп.е или как сделать мне портабл версию. Программы не могли как Cameo, thinApp,Enigma ....
Что делать?
Или можно запретить запись раздель регистра или как блокировать раздель в регистре

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\SHAMS Resource]
"¬ѕ««ЯѕСЛЇљЌ–ђ›"="0"
"¬ѕ««ЯѕСЛ­Љ‘јђЉ‘‹"="9"
"¬ѕ««ЯѕСЛ­Љ‘»ћ‹љ"="24.04.2017"
"SATT A.1_DBConnectionTest_test"="H:\\Install\\SATT\\SATT A.1\\Bases.test"
"SATT A.1_DBConnection_satt"="H:\\Install\\SATT\\SATT A.1\\Self.satt"
"¬ѕ««ЯѕСОЇљЌ–ђ›"="0"
"¬ѕ««ЯѕСО­Љ‘јђЉ‘‹"="2"
"¬ѕ««ЯѕСО­Љ‘»ћ‹љ"="08.04.2017"
"¬ѕ««ЯѕСЛ¬љЌ–ћ“"="VU-UUU-VQSERL"
"SATT A.4_DBConnectionTest_Compacte_date"="24.04.2017"
"SATT A.4_DBConnectionTest_test"="Bases.test"
"SATT A.4_DBConnection_Compacte_date"="24.04.2017"
"SATT A.4_DBConnection_satt"="C:\\Program Files\\SATT\\A\\Self.satt"



VU-UUU-VQSERL это серийний номер программы
для него надо подобрать подходящий ключ

например на ноутбуке
VU-UUU-QWDKWK
LSLVKMMWKKUOZQQVNMRUUTZQPTYVVUWL

[feliks77]

принтер печатаеть 1 лист если не зарегистрирована программа. Если регистована польный доступ к принтеру. как исправить?

[feliks77]

Act_TestPrint.Enabled := Act_TestInfo.Enabled and Assigned(TestList.Selected);// and (OnForm.Register.Dialog.ID.User < 1) and OnForm.Register.Done;

Act_TestBack.Enabled := (Pages.ActivePage = PageTestPrint) and FEnabled;
//Act_TestPrintStart.Enabled := (Pages.ActivePage = PageTestPrint) and FEnabled and (TestPrintPrintOf.ItemIndex > -1) and (TestPrintQueryRandom.ItemIndex > -1) and (TestPrintAnswerOf.ItemIndex > -1) and (TestPrintCount.ValueAsInteger > 0) and (TestPrintPrinter.ItemIndex > -1) and (TestPrintStyle.ItemIndex > -1) and OnForm.Register.Done;

Act_ExamFile.Enabled := (Pages.ActivePage = PageExam) and FEnabled and (TestList.Count > 0) and (FilterList.Count > 0);
//Act_ExamSheet.Enabled := (Pages.ActivePage = PageExam) and FEnabled and Assigned(ExamList.Selected) and OnForm.Register.Done;
//Act_ExamKeySheet.Enabled := (Pages.ActivePage = PageExam) and FEnabled and OnForm.Register.Done;

//Act_ExamBack.Enabled := ((Pages.ActivePage = PageExamFile) or (Pages.ActivePage = PageExamScan) or (Pages.ActivePage = PageExamReport) or (Pages.ActivePage = PageExamSheet) or (Pages.ActivePage = PageExamKey)) and FEnabled;
//Act_ExamPrintFile.Enabled := (Pages.ActivePage = PageExamFile) and FEnabled and (ExamFileName.Empty or not ExamFileName.ItemSelected) and not ExamFileFilter.Empty and (ExamFileDistributor.ItemIndex > -1) and (ExamFileCount.ValueAsInteger > 0) and (ExamFileCode.ValueAsInteger > 0) and not ExamFilePrinters.EmptyOfPrinters[True] and (ExamFileStyle.ItemIndex > -1) and not TrialVersion;

доброе утро. Как активировать программу. Если не активировань печать 1 штук к принтеру. как исправить.
Взломал прогу но не полностью. проблема принтером

[kosiy]

убери последние слова " and not TrialVersion" и все.

[feliks77]

and not TrialVersion" и все.
у меня программа упокована с ASProtect ом, знаю такие строки у него до упоковки. после этого как я найду эту фразу, или как изменить exe шник.