сори в сорцах сам изменил код да забыл код на место поставить вот оригинал исходник скачать http://webfile.ru/4340200 ну всеровно ошибка в этих строках

or [edi].characteristics,80000000h ;can write
тем кому не знает отредактировать путь k mz_procs.inc
и бантик

часть кода
;//////////////////////////////////
;// Crypt C0de //
;//////////////////////////////////
pushad
invoke GetTickCount
invoke nseed,eax
invoke nrandom,255
mov dwCryptKey,al
mov esi,pFileHeader
assume esitr IMAGE_FILE_HEADER
mov cx,[esi].NumberOfSections
mov edi,pSectionTable
assume editr IMAGE_SECTION_HEADER
.while cx != 0
invoke CanCrypt,pPE,edi
test eax,eax
jnz @F
or [edi].characteristics,80000000h ;can write
lea ebx,[edi].PointerToLinenumbers
mov word ptr [ebx],Sign
mov edx,[edi].PointerToRawData
add edx,hMap
xor eax,eax
.while eax <= [edi].SizeOfRawData
push eax
mov ah,dwCryptKey
xor byte ptr [edx],ah
pop eax
inc eax
inc edx
.endw