Поочередная запись в одну кучу.

[Виктор Шубин]

Доброго вермени суток всем!
Дело такое, не пойму как организовать запись в кучу(heap) данные.

Получается, что есть переменная , данные которой нужно записать в конце цикла в кучу. Так вот, первый цикл понятно mov и готово... как быть с последующими циклами? Куча вообще позволяет запись своего пространства в несколько подходов, а потом вывод данных.

это из урока по ассемблеру: "Также можно заметно ускорить процесс шифрования, если помещать зашифрованные данные во временный буфер в оперативной памяти и только по заполнению буфера скидывать их на жесткий диск."

Надеюсь на помощь, так как уже вроде адресацию почитал (селекторы, дескрипторы..) но вот как бы не пытался организовать смещение в этой куче, получается ерунда...

[p51x]

Может вы не знаете, но в куче спокойно можно размещать массивы. например...

[Виктор Шубин]

Я очень благодарен Вам за ответ, который толкает на мысль что запись в кучу все же реален отдельными фрагментами и образовавшееся целое поместить куда угодно. Но увы сути я не уловил.. прикажете читать, но что именно? (что бы понять как записать эти самые фрагменты, друг за другом, как будто я прделожение сочиняю, выдергивая из словаря непосредственно слова.)

[Utkin]

Если куча пугает своей природой, можно использовать список и/или динамический массив. Чувствуется Вам требуется коллекция/кортеж для физического перемещения данных .

[Виктор Шубин]

Да нет же, не пугает куча, просто разобраться не могу. Иные способы оно конечно хорошо, но сансей сказал (как я понял) через кучу. По крайней мере в 7ом уроке, предыдущем, изучалась именно эта функция. И вот в том то весь и прикол, что изучалось это громко сказанно. Сколько бы не искал в нете по поводу записи в кучу, всякая фигня только вылазит с другой интерпритацие слова "куча"

в задаче читается файл с диска по 4 байта в буфер, далее буфер xor`ят и записывают в файл на диск. Моя задача перед записью сначала все скидать в кучу, а потом записать на диск. (для ускорения)

[p51x]

Ну так познакомьтесь с функциями типа malloc/free, HeapAlloc/HeapFree, ... выделите память и пишите по указателю.

Буфер то у вас где? Статически описан?

[Виктор Шубин]

PHP код:

        include    'win32ax.inc'

        include    'encoding\WIN1251.INC'

        MEMSIZE    equ 12365530

        MAXSIZE    =   260
        PASSIZE    =   8

.data
        ernopass db 'Ââåäèòå ïàðîëü!',0
        erdifpass db 'Ïàðîëü è ïîäòâåðæäåíèå íå ñîâïàäàþò!',0
        erfsize db 'Ôàéë ñëèøêîì áîëüøîé!',0
        erfname db 'Ôàéë íå âûáðàí!',0
        bigfile db 'Ôàéë äîâîëüíî áîëüøîé!',13,10
        db 'Øèôðîâàíèå ìîæåò çàíÿòü ìíîãî âðåìåíè.',0
        success db 'Óñïåøíî çàâåðøåíî!',0

        extname db '.crpt',0

        errtxt db 'Êîä îøèáêè: %u',0
        errbuf rb $-errtxt+10

        fname1 rb MAXSIZE
        fname2 rb MAXSIZE

        pass1 rb PASSIZE+1
        pass2 rb PASSIZE+1

        buf dd ?

        passlen dd ?
        hfile1 dd ?
        hfile2 dd ?
       temp dd ?
       szformat db "%u",0
        temp2  dd ?
        temp1  dd ?

        hheap      dd ?

        pmem       dd ?

        allfile    dd ?


        ofn     OPENFILENAME sizeof.OPENFILENAME,,,,,,,fname1,MAXSIZE,,,,,\
                                    OFN_FILEMUSTEXIST + OFN_PATHMUSTEXIST + OFN_EXPLORER

.code

start:

        invoke  GetModuleHandle,0
        mov     [ofn.hInstance],eax

        invoke  DialogBoxParam,eax,IDD_MAIN,HWND_DESKTOP,DialogProc,0

        invoke  ExitProcess,0

        proc    DialogProc hwnddlg,msg,wparam,lparam

        push    ebx esi edi

        cmp     [msg],WM_INITDIALOG
        je      .wminitdialog

        cmp     [msg],WM_COMMAND
        je      .wmcommand

        cmp     [msg],WM_DROPFILES
        je      .drop

        cmp     [msg],WM_CLOSE
        je      .wmclose

        xor     eax,eax
        jmp     .finish

.wminitdialog:

        mov     eax,[hwnddlg]
        mov     [ofn.hwndOwner],eax
        invoke  SendDlgItemMessage, [hwnddlg], ID_PASS1, EM_LIMITTEXT, PASSIZE, 0

        invoke  SendDlgItemMessage,[hwnddlg],ID_PASS2,EM_LIMITTEXT,PASSIZE,0

        jmp     .processed

.wmcommand:

        cmp     [wparam],ID_OPEN
        je      .open

        cmp     [wparam],ID_EXIT
        je      .wmclose

        cmp     [wparam],ID_CRYPT
        jne     .finish
;=crypt=
        cmp     [fname1],0
        je      .erfname


        invoke  GetDlgItemText, [hwnddlg], ID_PASS1, pass1,PASSIZE+1

        cmp     [pass1],0
        je      .ernopass

        invoke  GetDlgItemText,[hwnddlg],ID_PASS2,pass2,PASSIZE+1
        invoke  lstrcmp, pass1, pass2

        test    eax,eax
        jne     .erdifpass

        invoke  lstrlen, pass1
        mov     [passlen],eax

        invoke  CreateFile,fname1,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,\
                                                                FILE_ATTRIBUTE_NORMAL,0
        cmp     eax,-1
        je      .erfname
        mov     [hfile1],eax

        invoke  GetFileSize, eax, 0

        cmp     eax,-1
        je      .erfilesize

        test    eax,eax
        je      .erfilesize

        mov     ebx,eax
        mov     [allfile],eax

        cmp     ebx,500000h ;5MB
        jb      .size_ok

        invoke  MessageBox,[hwnddlg],bigfile,0,MB_OKCANCEL
        cmp     eax,IDOK
        jne     .hclose

.size_ok:
        invoke  lstrcpy, fname2, fname1
        invoke  lstrcat, fname2, extname
        test    eax,eax
        je      .erfname

        invoke  CreateFile,fname2,GENERIC_WRITE,FILE_SHARE_READ,0,CREATE_ALWAYS,\
                                                                  FILE_ATTRIBUTE_NORMAL,0
        cmp     eax,-1
        je      .erfname
        mov     [hfile2],eax

        invoke  GetProcessHeap
        mov     [hheap],eax
        invoke  HeapAlloc, [hheap],HEAP_ZERO_MEMORY,MEMSIZE
        mov     [pmem],eax

.crypt_cycle:

        invoke  ReadFile,[hfile1],buf,4,temp1,0

        test    eax,eax
        je      .error

        xor     edx,edx
        mov     eax,ebx

        div     [passlen]
        add     edx,pass1

      ;  mov     al,[edx]
      ;  mov     ah,[edx+1]
      ;  xor     byte [buf], al
      ;  xor     byte [buf+1], ah
      ;  mov     al, [edx+2]
      ;  mov     ah, [edx+3]
      ;  xor     byte [buf+2], al
      ;  xor     byte [buf+3], ah


        mov      eax,buf          ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        mov      [pmem],eax
        sub ebx, [temp1]


        test    ebx,ebx
        jne     .crypt_cycle

        invoke  WriteFile,[hfile2],[pmem],10,temp2,0
        test    eax,eax
        je      .error

        invoke  HeapFree,[hheap],0,[pmem]


        invoke  CloseHandle,[hfile1]

        invoke  CloseHandle,[hfile2]

        invoke  SetFileAttributes, fname1, FILE_ATTRIBUTE_NORMAL

        invoke  DeleteFile, fname1

        test    eax,eax
        je      .error

        invoke  MoveFile, fname2, fname1
        test    eax,eax
        je      .error

        invoke  MessageBox,[hwnddlg],success,0,0
        jmp     .processed

.ernopass:
        invoke  MessageBox,[hwnddlg],ernopass,0,0
        jmp     .processed

.erdifpass:
        invoke  MessageBox,[hwnddlg],erdifpass,0,0
        jmp     .processed
.erfname:
        invoke  MessageBox,[hwnddlg],erfname,0,0
        jmp     .processed

.erfilesize:
        invoke  MessageBox,[hwnddlg],erfsize,0,0
        jmp     .hclose

.error:
        invoke  GetLastError
        invoke  wsprintf,errbuf,errtxt,eax
        invoke  MessageBox,[hwnddlg],errbuf,0,0

.hclose:
        invoke  CloseHandle,[hfile1]
        invoke  CloseHandle,[hfile2]
        jmp     .processed

.drop:
        invoke  DragQueryFile,[wparam],0,fname1,MAXSIZE
        jmp     .new_file

.open:
        invoke  GetOpenFileName,ofn
        test    eax,eax
        je      .processed

.new_file:
        invoke  SetDlgItemText,[hwnddlg], ID_NAMESTRING,fname1
        jmp     .processed

.wmclose:
        invoke  EndDialog,[hwnddlg],0

.processed:
        mov     eax,1

.finish:
        pop     edi esi ebx
        ret
        endp

.end start

section '.rsrc' resource data readable
        IDD_MAIN       = 100
        ID_NAMESTRING  = 101
        ID_PASS1       = 102
        ID_PASS2       = 103
        ID_OPEN        = 104
        ID_CRYPT       = 105
        ID_EXIT        = 109


        directory RT_DIALOG,dialogs


        resource dialogs,\
                 IDD_MAIN,LANG_RUSSIAN+SUBLANG_DEFAULT,main_dialog

   dialog main_dialog,'Ïðîñòåéøèé Øèôðîâàëüùèê',240,120,190,175,WS_CAPTION+WS_POPUP+WS_SYSMENU+ \
                                                                      DS_MODALFRAME,WS_EX_ACCEPTFILES

       dialogitem 'STATIC','&Ôàéë:',             -1,10,10,70,8, WS_VISIBLE
       dialogitem 'EDIT','',       ID_NAMESTRING,10,20,170,13,  WS_VISIBLE+WS_BORDER+ ES_AUTOHSCROLL+ES_READONLY
       dialogitem 'STATIC','&Ïàðîëü:',           -1, 10,50,70,8,WS_VISIBLE
       dialogitem 'EDIT','',            ID_PASS1,10, 60,60,13,  WS_VISIBLE+WS_BORDER+ WS_TABSTOP+ES_AUTOHSCROLL
       dialogitem 'STATIC','&Ïîäòâåðæäåíèå:',    -1, 10,80,70,8,WS_VISIBLE
       dialogitem 'EDIT','',            ID_PASS2,10, 90,60,13,  WS_VISIBLE+WS_BORDER+ WS_TABSTOP+ES_AUTOHSCROLL
       dialogitem 'BUTTON','&Îòêðûòü',   ID_OPEN,10,150,45,15,  WS_VISIBLE+WS_TABSTOP+ BS_DEFPUSHBUTTON
       dialogitem 'BUTTON','&Øèôðîâàòü',ID_CRYPT,85,150,45,15,  WS_VISIBLE+WS_TABSTOP+ BS_DEFPUSHBUTTON
       dialogitem 'BUTTON','Â&ûõîä',    ID_EXIT,135,150,45,15,  WS_VISIBLE+WS_TABSTOP+ BS_PUSHBUTTON
       enddialog 


[Виктор Шубин]

buf - куда пишем по 4 байта
pmem - дескритор кучи

[Iron Monk]

Ломоносовы, на русский переключаем, когда копипастим...

[Виктор Шубин]

Значит ни кто не знает как производить запись в кучу фрагментами, а затем вытащит из кучи все фрагменты целиком