VPF::Упростить и убыстрить алгоритм

tishaishii

Дата 2.4.2007, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: нет
Всего: 8

Надо убыстрить и упростить алгоритм:

Код

function KeySum(key:PChar):Integer; cdecl; export;
var len, res:Integer;
begin
  len:=length(String(key));
  res:=0;
    while(len>0)do
  begin
        res:=res+ord(String(key)[len]);
        dec(len);
    end;
  result:=res mod 255;
end;

function Crypt(value:PChar; id_firm:PChar):PChar; cdecl; export;
var sum, len, i:Integer;
    res: String;
begin
  Result:=nil;
  len:=length(String(value));
    if (len>0) then
  begin
        sum:=KeySum(id_firm);
    res:='';
    i:=1;
        while(len>0) do
    begin
      res:=res+chr(ord(String(value)[i]) xor ((sum xor len) xor i));
      dec(len);
      inc(i);
        end;
    Result:=PChar(res);
    end;
end;

Можно ли с учётом синтаксиса Delphi 7?

sgi1981

Дата 2.4.2007, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 16.3.2006

Репутация: 7
Всего: 10

Уже давненько не программирую в Delphi, але думаю, что...

Код


function KeySum(key:PChar):Integer; cdecl; export;
var len, res:Integer;
begin
asm
cld;
mov esi, key;
xor edx,edx;
xor eax,eax;
@c1:lodsb;
test al,al;
je @p2;
add edx,eax;
jmp @c1;
@p2:
mov eax,edx;
xor edx,edx;
mov ecx,255;
div ecx;
mov eax,edx;
end;
end;

Код


function Crypt(value:PChar; id_firm:PChar):PChar; cdecl; export;
var len: Integer;
    res: Integer;
begin
asm
mov res, 0;
mov ebx, value;
cmp byte ptr [ebx],0;
je @p88;
push value;
call lstrlen;
mov len, eax;
inc eax;
push eax;
push 0;
call GlobalAlloc;
mov res, eax;
push id_firm;
call KeySum;
mov ebx, eax; {sum - ebx}
cld;
mov edi, res; {res - edi}
xor eax,eax;
mov esi, value;
mov ecx, len; {len - ecx}
mov edx, 1; {i - edx}
@c1:
mov al, bl;
xor al, cl;
xor al, dl;
xor al, [esi];
mov [edi], al;
inc esi;
inc edi;
inc edx;
loop @c1;
mov byte ptr [edi], 0;
@p88:
end;
    Result:=PChar(res);
end;

Тестировать - не тестировал. Тестируй сам...

--------------------

Тело в нашем пространстве - есть часть пространства, в которой пространство обладает дисторсией относительно внешнего пространства.

tishaishii

Дата 5.4.2007, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: нет
Всего: 8

KeySum возвращает неадыкватное значение.
В Crypt использована не известная функция lstrlen.

ИТОГО: 0.

sgi1981

Дата 9.4.2007, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 16.3.2006

Репутация: 7
Всего: 10

lstrlen - функция из библиотеки kernel32.dll возвращает количество символов нуль-терминальной строки

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm: Общие вопросы \| Следующая тема »