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

[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-pr...ilozhenij.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\\SAT T 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]

Цитата: Сообщение от kosiy and not TrialVersion" и все.

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