[PassCall]

Возможна ли обфускация кода в MidletPascal?

Зачем? Дезассемблируй любой java class из своего проекта. Даже самый маленький проект превращается в жуткий винегрет!

Вот код

        for(i = 1; maxgroup >= i; i++)
            for(i2 = 1; 10 >= i2; i2++)
            {
                if((((byte)(mob_attr[mob_map_type[last_group - 1] - 1][(14 + (i2 - 1) * 2) - 1] > (RNG.nextInt() & -1 >>> 1) % 100 ? -1 : 0))) == 0)
                    continue;
                mob_attr[mob_map_type[last_group - 1] - 1][(13 + (i2 - 1) * 2) - 1][loot] = max - 1;
                ((RNG.nextInt() & -1 >>> 1) % 9 + 1)[loot_bonus] = max - 1;
                if((((byte)(item_attr[loot[max - 1] - 0][22 - 1] > 0 ? -1 : 0))) != 0)
                    for(i3 = 1; item_attr[loot[max - 1] - 0][22 - 1] >= i3; i3++)
                        if((((byte)((RNG.nextInt() & -1 >>> 1) % 5 == 0 ? -1 : 0))) != 0)
                            (loot_lvl[max - 1] + 1)[loot_lvl] = max - 1;

                if((((byte)(item_attr[loot[max - 1] - 0][26 - 1] > 0 ? -1 : 0))) != 0)
                    for(i3 = 1; item_attr[loot[max - 1] - 0][26 - 1] >= i3; i3++)
                        if((((byte)((RNG.nextInt() & -1 >>> 1) % 5 == 0 ? -1 : 0))) != 0)
                            (loot_quality[max - 1] + 1)[loot_quality] = max - 1;

                max++;
            }

только тру джава эксперт поймет что тут написано.

А если серьёзно хочеш запутать код, попробуй например заменить названия переменных символами подчеркивания. И разбавь ещё чем нибудь

Пример:

program omg;
var
_,__,_1__,___1_,___2__2__1:integer;
_1__11__1,__2_2_:real;
_1_1_:boolean;
begin
if (_1__11__1+_-_1>__2) and (_2*__1<>__) then ___:=___22_+(_2_,___7_,__2__);
drawimage(_2__34_1,__23,__2_2_);
repaint;
...........................................
end.

Пусть хакер сломает мозг, пока читать будет