ASProtect и Delphi 2009

В принципе все оказалось довольно не сложно.

ASProtect вполне нормально работает с Delphi 2009. Естественно, нужно просто делать преобразование строк при вызове ASProtect API  функций.

Вот преобразованная процедура из стандартного примера:

procedure TfrmRegKey.btnRegOkClick(Sender: TObject);
begin
 
//  If CheckKeyAndDecrypt( PChar(eCode.Text), PChar(eName.Text), True ) then
 
// Для Delphi 2009 будет так:
If CheckKeyAndDecrypt( PChar(ansistring(eCode.Text)), PChar(ansistring(eName.Text)), True ) then
  begin
    MessageBox(Handle, 'Thank you for your registration!', 'Registration', MB_ICONINFORMATION);
    Close;
  end else
    MessageBox(Handle, 'Key is not valid, please contact manufacture!','Registration', MB_ICONWARNING);
 
end;

К слову, месяц назад вышел ASProtect SKE 2.5 Release. Так, что слухи о том, что продукт умер – преувеличены.

• Improved map-files parsing
• Various Help file corrections
• Fixed application termination instead of displaying Trial Reminder if no trial counters have been used
• Fixed aspr_ide crash under Delphi IDE.

Delphi 2009 и ASProtect

В принципе все логично. Не работает. Функции возвращают строковые значения, которые не совпадают по длине. Соответственно, они честно вызываются, но в качестве результат возвращают абракадабру. Хотя можно попробовать сделать под это дело солюшн.