Мне необходимо сохранить в программе написанной на Delphi (к примеру 3 переменных), которые я объявляю глобально. Использую в разных местах программы.
Объявляю как обычный dword или pdword. Например использую так:

Либо просто объявляю dword. В итоге получаю три подряд идущие ячейки с адресами где лежат переменные либо три подряд идущие переменные во втором случае.
Моя задача состоит в том, что бы сохранить возможность обращения по имени переменной, но фактически адреса ячеек с переменными или значения не шли друг за другом. Как-то запутанно рассказал…
В итоге при рассмотрении в дизассемблере обращение к переменным выгляди примерно так:

или так:

А мне бы получить как-то так:

или так:

Я понимаю, что этим ведает компилятор, но может есть варианты раскидать?

| Сообщение посчитали полезным:

можно каждую переменную хранить в отдельном юните, только чтобы переменные были раскиданы, в каджом юните напиши одну или несколько функций, которые будут компилироваться, но фактически никакой работы делать не будут..

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

типа
Unit1:
var
my_param1 : int;
dummy1 : array [0..4554] of int;

Unit2:
var
my_param2 : int;
dummy2 : array [0..433] of int;

Unit1:
var
my_param3 : int;

PS: или все переменные в одном юните, а между ними декларации массивов с размером, какой хочешь чтобы был между ними..

| Сообщение посчитали полезным:

Enigma - для трёх в каждом юните в принципе вариант, но по секрету скажу, что у меня 200 переменных...
Вариант с массивами между каждой переменной - интересно. Можно выделить мегабайт под это дело, рандомно насоздавать массивов разной длины...

| Сообщение посчитали полезным:

да, только не забудь что компилятор уберет неиспользуемые массивы, надо будет создать функцию, которая их использует, и саму функцию за-использовать.. вот так прокатит
var
val:array [0..43] of int;
function dummy : int;
begin
val[0] := val[43];
result := val[0];
end;
initialization
asm
jmp @1
call dummy
@1:
end;

| Сообщение посчитали полезным:

Enigma Спасибо за помощь! Ты подал хорошую идею, буду использовать этот метод.
Тему пока не закрываю на тот случай, если кто нибудь ещё варианты знает.

| Сообщение посчитали полезным:

Создай 1 массив большой длины. И выбери рандомом нужное число индексов, там и храни переменные. Хотя сами индексы будут лежать в памяти подряд. Поэтому хз, подойдёт или нет, ибо вывалил сразу странную задачу без объяснения, накой это закидывание ноги за ухо нужно.

| Сообщение посчитали полезным:

Archer пишет:
накой это закидывание ноги за ухо нужно

Там планируется хранить всякие адреса необходимые для успешной работы программы, константы расчётов, в общем важную информацию без которой софт работать не будет и которые раскиданы по всему коду. Разумеется содержимое ячеек правильно сформируется только тогда, когда инфа о железе и присланный файл ключа будут соответствовать. Простенькая защита получается. Можно чуть повиртуализировать код... Понимаю, что идея не выдерживает критики и мало кого это остановит, но хранить важные константы подряд небольшим блоком вообще грех...

| Сообщение посчитали полезным:

Ну раз для защиты нужно), то тогда можно большую часть данных хранить рандомно в одном или нескольких массивах (либо в переменных между массивов произвольной длины), но при этом оставшуюся часть распределить, например, по стандартым дельфовым модулям, по своим модулям, по стандартным дельфовым классам, по элементам форм (свойство Tag можно использовать). В последнем случае может быть есть смысл что-нибудь типа Citadel заюзать.
P.S. Если бы под fpc писалось, можно было через absolute адрес переменной задавать, что тоже пригодилось бы).

| Сообщение посчитали полезным:

ToBad пишет:
Разумеется содержимое ячеек правильно сформируется только тогда, когда инфа о железе и присланный файл ключа будут соответствовать.
пиши тогда компонент, который будет создавать и убивать массивы динамически (а данные перемещать конечно без потерь), а указатель на нужный давать при доступе через свойство, и вешай всё это дело в отдельный поток... быдет немного памяти жрать, но поставит в тупик многих (можно ещё и шифровать попутно)

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным: