Вообщем выкладываю вторую тестовую версию ifolder.ru/3232559
у кого есть возможность потестируйте и отпешитесь, мож будут какие советы дельные, т.к. автор этой проги перестал ее дальше разрабатывать(нет времени), я у него попросил сырки и хочу продолжить этот проект...

з.ы. и вообще нужна ли такая прога, кому нибудь кроме меня, стоит ли выкладывать новые билды???

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

LazzY пишет:
напешите лучше чтонить вроде vb2php
я уже бэйсик забыл, в школе его еще учил

LKS128 пишет:
>>> Качай здесь <<<
Ок... какя версия самая актуальная?

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

Прога теперь называется ASM2PAS IDE (модеры переименуйте тему!!!)
насчет Фасма это я конечно погоречился, поначалу глянул мелкие примеры на фасме, думал с синтаксисом не будет поблем, а щас стал разбирать примеры по больше и понял что с фасмом будет много заморочек, если делать поддержку фасма то из за него придется периделывать весь двиг парсера, а это не есть хорошо поэтому фасм откладывается до лучших времен... сейчас улучшаю поддержку тасма и масма...
вопрос, как быть с такой командой типа ASSUME CS:xxx или ASSUME FS:NOTHING...

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

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

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

Sn пишет:
Не прога безпантова, имхо, какой резон с етими асемблервоскими вставками когда проше на асме код обернуть в длл
Дык начиная со следующей версии, конверт будет не основной функцией, хочу сделать полноценную ИДЕ, хотя с такими комментами, может остаться в привате, у меня полно знакомых кому данная прога приглянулась, пусть даже сейчас и сырая...

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

DIMAIN пишет:
у меня полно знакомых
Звучит как угроза =)
Лично я могу посоветовать тебе:
1) Двигай свою тему.
2) Забей на всяких мудакофф
3) Читай отзывы и старайся фтыкать
4) Смело проси помощь, тебе помогут.

-----
iNTERNATiONAL CoDE CReW

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

нех никого слушать, делойте! моя прога тоже 2-3 тока и приглянулась, но ниче, делаю же..

директива assume указывает ассемблеру на текущее значение в сегментном регистре, это нужно, чтобы компилятор правильно вычислял смещения.. это директива масма не генерирует кода. а вот как быть с пацкалем - хз.. например push fs:[0] пораждает acess violant.. надо подумать.

-----
invoke OpenFire

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

DIMAIN пишет:
Дык начиная со следующей версии, конверт будет не основной функцией, хочу сделать полноценную ИДЕ, хотя с такими комментами, может остаться в привате, у меня полно знакомых кому данная прога приглянулась, пусть даже сейчас и сырая...
Если как IDE (сразу вверху незаметил пропустил видать) то другая тема . Я сказал насчет безпантовая того что было до етова ) К тебе ето никакова отношения немогло иметь, если ты только за нее взялся!
Делай конешно, посмотрим че выйдет!

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

assume указывает адресу сегмент данных (насколько я понимаю)

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

assume никакому адресу ничего не указывает и используеццо для всех сегментных регистров..

-----
invoke OpenFire

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

Ice-T, жжешь
asm:
mov edi, 0
assume edi:ptr IMAGE_DOS_HEADER
add edi,[edi].e_lfanew

делфи:
var
PIMAGE_DOS_HEADER: ^IMAGE_DOS_HEADER;
_edi: dword;
beginf
PIMAGE_DOS_HEADER;= Pointer(0);
_edi:= Pointer(dword(PIMAGE_DOS_HEADER)+ dword(PIMAGE_DOS_HEADER^._lfanew));

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

сн, нуко на дельфе перепешите-ко:

assume FS:nothing
push FS:[0]
pop (переменная)

-----
invoke OpenFire

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

Ice-T
Вообщето то я пробовал подобное на дельфах как можно догадаться для сех конструкции, взял код кажись от Yoda Crypter'а, убрал строку "assume FS:nothing" и прога скомпилилась и работала, тут вопрос в другом, нужнна ли эта команда паскалю?

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

Если ты до этого запортишь FS или укажешь его в другое место, то скомпилиццо, но работать не будет. Так что в общем случае данная команда нужна везде.

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

Archer пишет:
данная команда нужна везде
как ее реализовать в паскале, мож есть замена какя?

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

Есть предположение, что может помочь запись в FS дефолтного значения (3b, вроде, в ольке глянь), но это лишь имхо.

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

и то не факт.. предлогаю не париться и передлоть-таке подобные сех кнострукции на истенный пацкаль! try..except..end, try..finaly. всё равно рано или поздно от асма надо буит уходить...

-----
invoke OpenFire

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

Ice-T пишет:
try..except..end, try..finaly
так, придется подключать sysutils... а это увеличение ЕХЕшника что не есть гуд

тут еще одна подлянка с invoke, типа такого:
invoke MessageBoxA, hWin, ADDR Text, ADDR Capt, MB_OK
я набросал обработку этого дела, т.е. получиться как то так:
push MB_OK
push Capt
push Text
push 0
call MessageBoxA
но косяк в том что, не всегда корректно обробатывается,
вопрос, мож этот invoke как то адаптировать под паскаль, чтоб он принимал строку целиком?

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

DIMAIN
Протестил твою прогу...
Вопрос возник. Как правильно подкеорректировать такой код:

public PROGRAM
PROGRAM proc near
call @__SystemInit$qv ; __SystemInit(void)
push bp
mov bp, sp
xor ax, ax
call @__StackCheck$q4Word ; Stack overflow check (AX)
pop bp
xor ax, ax
call @Halt$q4Word ; Halt(Word)
PROGRAM endp

Это из дизасембленной проги на паскале. Смотрел через IDA.

Подскажи как правильно использовать метку...
А то ошибка вылетает (при попытке затем откомпилить в турбо паскале)
Undefined label in preceding statement part (@__SystemInit$qv).
(Из справки F1: Метка была объявлена и вызвана в операторной
части, но не была определена.)

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

Mavlyudov пишет:
Как правильно подкеорректировать такой код
запости листинг целиком (можно в личку) трудно понять код...
Mavlyudov пишет:
PROGRAM proc near
такой код не скомпилится, надо везде PROGRAM заменить на что нить типа MyFunc...

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

DIMAIN пишет:
запости листинг целиком (можно в личку) трудно понять код...

у тебя турбо паскаль стоит на компе?
создай программу
begin
end

И откомпилируй. Затем открой exe в IDA.
Вот и будет код.

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

Mavlyudov
нахера тебе здался ТП, он же под дос?
ну да ладно, вот листинг:
Program new;
procedure SystemInit;
begin
end;

procedure StackCheck;
begin
end;

procedure Halt;
begin
end;

begin
asm
call SystemInit
push bp
mov bp, sp
@loc_8:
xor ax, ax
call StackCheck
pop bp
@loc_10:
xor ax, ax
@loc_12:
call Halt
end;
end.
переделай свой под такой вид и все будет хОКей...
компилиться и в ТП и в дельфи...

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

DIMAIN пишет:
нахера тебе здался ТП, он же под дос?
ну да ладно, вот листинг:
Я таким образом асм учу...

А почему процедуры SystemInit, StackCheck, Halt пустые??
в IDA я смотрел там, например, SystemInit описана..и в ней строчек 20 если не больше.....

Протестирую.

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

DIMAIN пишет:
Ice-T пишет:
пацкаль это не скомпелит
в ГНУ-Паскаль мож и не скомпилит, а в дельфях все нормально, на фрипакале и виртуал еще не проверял...

Жжошь чувак, учи матчасть.

MsgBoxCaption : pchar = 'It's the first your program for Win32';

Вот что тебе покажут при компиляции.

';' expected but identifier 's' found

-----
Security through obscurity is just an illusion

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

pushick
все там и так понятно - надо заменить ' на ` и все скомпилит...
эту тему уже опсосали с ног до головы, вспомнил бы еще что год назад постили...
pushick пишет:
Жжошь чувак, учи матчасть.
ужо все давно изучено... иди покури...

Mavlyudov пишет:
А почему процедуры SystemInit, StackCheck, Halt пустые??
да я тебе просто макет показал (убрал лишнее), поэтому и пустые, там не компилило из за недопустимых знаков, которые вставила ИДА... и еще там используются прирывания, ты с этим поакуратней, учись лучше на вин32 прогах...

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

DIMAIN пишет:
try..except..end, try..finaly
так, придется подключать sysutils... а это увеличение ЕХЕшника что не есть гуд
Я думаю, что не нужно. Вот это компилируется без проблем:

program Project;
uses
Windows;
begin
try
Writeln('Test');
finally
end;
end.

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

HellStudent пишет:
Я думаю, что не нужно.
ты не думай, а проверь...
program Project;
uses
Windows;
begin
try
asm
int 3
end;
except
end;
end.

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

что не есть гуд? увеличение размера? ну извините.... тут уж 2 пути, либо все по пацкалевским правилам (в т.ч. размер exe) либо все на ацм-вставках, что имхо не тру...

-----
invoke OpenFire

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

Ice-T пишет:
try..except
это вообще лажа, тем более когда они не нужны...
Ice-T пишет:
тут уж 2 пути
да???, ну если подключать все модули тогда от асм вставок уже никакого толку не будет...

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

че лажа? try..except? о_О вы о чем вообще? вы скажите просто, что вам проще переделоть assume на пацкаль, чем сех конструкции выявлять и переделывать... тогда сразу ясно все буит и советовать будем в соответствии с вашеме пожеланияме..

-----
invoke OpenFire

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

DIMAIN
можешь тогда остальные 3 функции написать как они будут на для паскаля во вставке асма??
Пробую эту (привожу начало фнкции):
; __SystemInit(void)
@__SystemInit$qv proc far
mov dx, seg dseg
mov ds, dx
mov word_105F8, es
....................
На строке
[bmov dx, seg dseg][/b]
Ошибка вылетает
Invalid symbol reference.
Неверная ссылка на символ
Спвравка:к этому символу нельзя обращаться в операнде ассемблера.

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