function encrypt(str:string; len,key:dword):string;assembler;
asm
pushad  ;сохранение регистров на всякий случай
mov ecx,len ;в счётчик цикла пихаем длину строки
mov ebx,key ;в рандомный другой регист пихаем ключ шифрования
lea esi,[str] ; прописываем в esi адрес первого симовла строки
lea edi,[result] ;в edi адрес переменной результата
@cyc:
lodsd  ; в EAX идет очередной символ из ebx; SI++
xor eax,ebx ;  
stosd ; в резалт пишем аккумулятр
loop @cyc
popad  ;воссатавливаем зачения регистров
end;

вся соль в том, что оно не пишет в result. в чем ошибки?
(функция ксорит посимвольно строку по ключу)

Он пишет, но ты переписываешь  в pushad/popad нет никакого смысла в данной функции. А lodsd/stosd + loop достаточно медленные, поэтому твоя реализация на ассемблере будет медленнее обычного цикла(если функция писалась на асме с целью оптимизации по скорости).

я сначала без пушада делал, всеравно нифига. не в нем дело. и что, получается, комманда асемблера медленнее чем делфи?

Ну запихни то, что тебе надо явно:





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


Это сообщение отредактировал(а) W4FhLF - 16.6.2008, 17:11

не знаю, насколько актуально (все-таки полмесяца прошло   ), но самая главная ошибка - имхо в том, что под result не выделяется память. Ну и по мелочи всякого... Немного доделал\переделал твой пример и малость прокомментировал:Параметр len в принципе не нужен, ибо строка хранит информацию о своей длине, поэтому мы можем её получить...