ASM Community

;//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;//displays the contents of the index.dat files
;//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ShowIndexDat proc uses edi IndexPath:DWORD

     LOCAL  hFile        :DWORD



     invoke RemoveBackSlash,IndexPath
     invoke CreateFile,IndexPath,GENERIC_READ or GENERIC_WRITE,\
                       FILE_SHARE_READ or FILE_SHARE_WRITE,NULL,\
                       OPEN_EXISTING,NULL,NULL

     mov hFile,eax
     cmp eax,-1        ;//open index.dat file
     jz @not_exist

     invoke GetFileSize,hFile,ADDR FileSize
     mov IndexSize,eax
	 push eax
     invoke dwtoa,eax,ADDR szCurrentIndexSize
	 pop eax
     mov edi,OFFSET szCurrentIndexSize
     xor ecx,ecx
     xor eax,eax
     mov ecx,-1
     cld
     repne scasb
     not ecx
     cmp ecx,03h
     jle @f
     sub ecx,01h
     invoke CommaProc,ADDR szCurrentIndexSize,ecx
     invoke lstrcpy,ADDR szCurrentIndexSize,ADDR szTotalBytes
     
     invoke GlobalAlloc,GMEM_MOVEABLE or GMEM_ZEROINIT,IndexSize	
     mov hMemory,eax
     invoke GlobalLock,hMemory
     mov ptrMemory,eax
     invoke ReadFile,hFile,ptrMemory,IndexSize,ADDR WriteSize,NULL

     mov edi,ptrMemory   ;//copy file to memory
     mov ecx,IndexSize
     cld

    @@:
     push ecx
     invoke SendMessage,hwndProgress,PBM_STEPIT,0,0
     sub CurrentStep,1
     pop ecx
     cmp ecx,00h
     jle @f 
     xor eax,eax    
     mov al,55h
     repne scasb
     cmp ecx,00h
     jle @f 
       
     mov al,
     cmp al,52h
     jnz @b

     inc edi
     dec ecx
     mov al,
     cmp al,04ch
     jnz @b
     inc edi
     dec ecx
     mov al,
     cmp al,020h
     jnz @b
     
	 xor eax,eax
	 mov eax,
	 sub eax,03h
	 add edi,eax
    ; add edi,65h          ;//set edi to start of string
     sub ecx,eax
     push edi
     push ecx

     invoke RtlZeroMemory,OFFSET szTempPathBuf,1024
     invoke lstrcpy,ADDR szTempPathBuf,edi  ;//copy index entry
                                            ;//to buffer
     mov dwProtectIndex,00h
     xor eax,eax
     sub edi,02h    ;//edi points 2 bytes before string entry  
     mov al,
     cmp al,0deh    ;//is entry protected?
     jnz @protect
     inc edi
     mov al,
     cmp al,0adh    ;//is entry protected?
     jnz @protect
     mov dwProtectIndex,01h
     jmp lb1

    @protect:
     mov dwProtectIndex,00h

    lb1:
     invoke ShowIndexInfo,addr szTempPathBuf,\
                         ADDR szIndexBytes

     pop ecx
     pop edi
	 
		.if ecx>00h
			jmp @b

		.endif

    @@:
     invoke CloseHandle,hFile
     invoke GlobalUnlock,ptrMemory
     invoke GlobalFree,hMemory
    @not_exist:

     ret 

ShowIndexDat endp