Кто кодит на Delphi, плз, покажите мне мои ошибки.
Заранее спс

Var
S : String;
Buffer: array[0..10] of Char;
szName : String;
HW : HWND;
Serial : Integer;
begin
HW := GetDlgItem (Form1.Handle, Edit1.Handle);
GetDlgItemText (Form1.Handle, HW, Buffer, 30);

Asm
push offset Buffer
XOR EDX,EDX
XOR EBX,EBX
XOR ESI,ESI
@1 :
MOV DL,BYTE PTR DS:[Buffer+EBX]; //тут ошибка (не поправил)
ADD ESI,EDX;
INC EBX
DEC EAX
JNZ @1
IMUL EAX,ESI,7F39Fh
ADD EAX,20h
SAR EAX,1h
MOV Serial, EAX
Ret

end;
Edit2.Text := IntToStr (Serial);
End;

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

Khim пишет:
MOV DL,BYTE PTR DS:[Buffer+EBX]; //тут ошибка (не поправил)
там все нормально

Khim пишет:
RET
вот после этого она уходит в аут

с чего рипнул?

есть на чем проверить?
Name: BoRoV
Pass: 118815148

просто так, а вдруг

-----
Лучше быть одиноким, но свободным © $me

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

3я статья aleks22, про генерацию и рипанье кода,
опробываю тот же вариант, только в дельфи,
вот полностью код процедуры, но только нада поработать над ним, ошибки поискать

function wsprintf( lpOut: LPSTR; lpFmt: LPCTSTR; p: Pointer ): Integer; stdcall; external 'user32.dll' name 'wsprintfA';

procedure TForm1.Button1Click(Sender: TObject);
Var
S : String;
Buffer: array[0..10] of Char;
szName : String;
HW : HWND;
Serial : Integer;
szMessage: PChar;
begin
HW := GetDlgItem (Form1.Handle, Edit1.Handle);
GetDlgItemText (Form1.Handle, HW, Buffer, 30);

Asm
push offset Buffer
XOR EDX,EDX
XOR EBX,EBX
XOR ESI,ESI
@1 :
MOV DL,BYTE PTR DS:[Buffer+EBX];
ADD ESI,EDX;
INC EBX
DEC EAX
JNZ @1
IMUL EAX,ESI,7F39Fh
ADD EAX,20h
SAR EAX,1h
MOV Serial, EAX
Ret

end;
GetMem (szMessage, 256 );
wsprintf( szMessage, '%02i', Pointer(Serial));
MessageBox( 0, szMessage, эСообщение', MB_OK );
End;

____________-
Жизнь.ехе \?

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

1. Убери ret
2. Вызови FreeMem

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

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

Да, пасиб, сраслось, рабочий код, буду учиться рипать дальше

мож кто встречал статьи по рипанью кода ассемблер -> Delphi?

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

да, я кажется был прав

procedure TForm1.Button1Click(Sender: TObject);
Var
szName : String;
i, Serial : Integer;

function sar(i: integer): integer;
asm
sar eax,1h
end;
begin
Serial := 0;
szName := Edit1.Text;
for i := 0 to length(szName) - 1 do
Serial := Serial + ord(szName[i + 1]);

Serial := Serial * $7f39f + $20;
Serial := sar(Serial);
Edit2.Text := IntToStr(Serial);
end;

вместо того чтобы учится рипать лучше учился разберать

-----
Лучше быть одиноким, но свободным © $me

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

аналог на Delphi собрать смогу, зная что процедура делает, вот асм не знаю =((, в дельфи есть хорошая возможность просмотреть изменение значений переменных, поэт разбираюсь, через рипанье=)

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

http://exelab.ru/art/?action=view&id=97

http://exelab.ru/art/?action=view&id=92

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

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

тогда еще почитай о особеностях асма в делфи

-----
Лучше быть одиноким, но свободным © $me

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

Khim пишет:
Ret

вот почитай азы www.infomix.ru/lib/syntax/2878.htm
borov пишет:
вместо того чтобы учится рипать лучше учился разберать
Это точно... полезнее намного!

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

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