Здравствуйте!

Имею такой кусок:
00403656 |. BF 08000000 |MOV EDI,8
0040365B |. 83C8 FF |OR EAX,FFFFFFFF
0040365E |. 8A140A |MOV DL,BYTE PTR DS:[EDX+ECX] В DL заносится первый символ имени
00403661 |> D1E0 |/SHL EAX,1
00403663 |. D0E2 ||SHL DL,1
00403665 |. 8BC8 ||MOV ECX,EAX
00403667 |. 8ADA ||MOV BL,DL
00403669 |. C1E9 17 ||SHR ECX,17
0040366C |. 81E1 80000000 ||AND ECX,80
00403672 |. 81E3 80000000 ||AND EBX,80
00403678 |. 33CB ||XOR ECX,EBX
0040367A |. 74 05 ||JE SHORT RCube.00403681
0040367C |. 35 2083B8ED ||XOR EAX,EDB88320
00403681 |> 4F ||DEC EDI
00403682 |.^75 DD |\JNZ SHORT RCube.00403661

Например, пусть первый символ будет "А", пройдя весть этот код, в EAX будет: 91711080

Подскажите, как этот код перевести на Паскаль.

Меня смущают такие команды:
00403661 |> D1E0 |/SHL EAX,1
00403663 |. D0E2 ||SHL DL,1
~~~~~~~~~~~~~~~~~
00403669 |. C1E9 17 ||SHR ECX,17
0040366C |. 81E1 80000000 ||AND ECX,80
00403672 |. 81E3 80000000 ||AND EBX,80

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

Хе, кажись в пускале есть такие функции для сдвигов и and...

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

shl, shr и and ???

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

asm: SHL EAX,1
tp: eax shl 1
Это что уже перестало работать ?

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

Можно и не переводить на Паскаль, а записать в блоке

asm
.......
end;

Но это для 32-битного компайлера.
Для 16-битного будет следующее:
EAX(ECX,EBX..) можно заменить переменной типа longint;
DL(CL,BL...) - переменной типа byte;
Битовые операции: EAX:=EAX shr 1; ECX:=ECX and 1; и т.д.

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

пиши на паскале так:

var
  chislo: integer;
  sdvig: byte;
begin
  chislo:=ord('A'); //к примеру
  sdvig:=17; //к примеру
  asm
    push eax //на всякий случай
    mov eax, chislo
    shl eax, sdvig
    and eax, 80
    shr eax, sdvig
    pop  eax //на всякий случай
  end;
end;

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

asm
shl eax,1
shl ebx,1
end;
WriteLN(eax)

в EAX будет -2, когда в отладчике там FFFFFFFE(я знаю что это одно и тоже), но
потом SHR ECX,17, будет ноль. Должно 1FF.

Изобразите, пожалуйста, пример.

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

GPcH

Косяк, пока писал, ты вроде как помог.

Спасибо. Пойду проверять.

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

Никак, не получается. ПЛЗ. Можно полный пример, тоесть Program.....end.

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

да я пример для дельфей кинул... если чистый паскал - попробуй использовать 16 разрядные регистры... скажу чессно - никогда на досовском паскале не писал и не изучал... но думаю там по сравнению с дельфями моло различий в работе стандартными способами

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

AVE
А точнее можно наисать какой пасовский компилятор юзаешь?
Если BP 7.0 или TP 7.0, то делать asm-вставки с 32-битными регистрами не получится(EAX, EBX...).
В зависимости от логики проги нужно заменить 32-битные регистры на 16-битные(если это не приведет к потерям) либо заменять регистры на переменные и полностью все переводить на Pascal.
И еще: не пойму для чего EDI; обычно в нем адрес строки, но здесь на это не похоже.

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

GPcH
никогда на досовском паскале не писал и не изучал... но думаю там по сравнению с дельфями моло различий в работе стандартными способами

А с чего же тогда начинал???
P.S.
Отличия в данном случае заключаются в типах данных.

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

Stranger пишет:
А с чего же тогда начинал
c VB

-----
EnJoy!

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

Stranger пишет:
А с чего же тогда начинал???
QBasic -> VB for DOS -> VB 6.0 -> Asm ->HTML -> PHP & Delphi

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

А мой путь:
QBasic-> Pascal-> ASM->Delphi(немного)->C++
Ну и немного изучал HTML.
Но в основном все под ДОС. Комп был хилый и инета не было. Поэтому теперь проблемы с
API-функциями.

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

В паскле нет 32-х битных регистров но можно записать всё опкодами.

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

xShadow пишет:
В паскле нет 32-х битных регистров но можно записать всё опкодами
Простите, это как?

var
EDI,EAX,ECXWORD;
DL,BL:byte;
begin
...
EAX:=EAX or $FFFFFFFF;
DL:=Str[1]; // наша строка
for EDI:=8 DOWNTO 0 Do begin
EAX:=EAX shl 1;
DL:= Dl shl 1;
ECX:=(EAX SHR $17) and $80;
BL:=DL and $80;
if (ECX xor EBX)=0 then
eax:=eax xor $EDB88320
end;
Могут быть в синтаксисе ошибки, проверь сам

-----
Подписи - ЗЛО! Нужно убирать!

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

xShadow пишет:
В паскле нет 32-х битных регистров но можно записать всё опкодами.

nice пишет:
Простите, это как?

Вы для начала определитесь, о каком "Паскале" вы говорите ;)
Если на то пошло, то в стандартном Паскале (если под этим понимать стандарт) вообще нет асм-вставок, и shl/shr - тоже нет.

-----
crypto.freak

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

Ну возьмём к примеру TP7
Там есть inline в котором можно использовать опкоды.
или вот самый простой пример

 asm
    db $66, $33, $C0 {xor eax, eax}
 end;

Откомпилирует и выполнит как миленький.

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

nice пишет:
var
EDI,EAX,ECX:WORD;
Есть одна маленькая проблемка: EDI,EAX,ECX - 4x-байтные регистры, в то время как в WORD больше 2х не запихнешь!

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

Stranger
А я написал D W O R D!

я пропустил насчет паскаля, думал про дельфи идет речь, так что сорри

-----
Подписи - ЗЛО! Нужно убирать!

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