Добавлено (25.12.2011, 18:52)
---------------------------------------------
такой прекрастный чит выложить в паблик ты так щедр

Dk(Sniper, Lui, kill-ka)

Добавлено (25.12.2011, 19:04)
---------------------------------------------
.386
.model flat, stdcall

option casemap:none

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc

includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib

.data ; Секция данных

buf db 500h dup(?)

fake1 db '.',0
fake2 db '..',0

.code ; Секция кода

find_files proc


push ebp
mov ebp,esp
sub esp,144h

lea eax,[ebp-144h]
invoke FindFirstFile,offset buf,eax
inc eax
je exit
dec eax
mov dword ptr [ebp-6h],eax

find_next:
mov eax,dword ptr [ebp-144h]
and eax,FILE_ATTRIBUTE_DIRECTORY
je found

lea eax,[ebp-118h]
invoke lstrcmp,offset fake1,eax
test eax,eax
je next

lea eax,[ebp-118h]
invoke lstrcmp,offset fake2,eax
test eax,eax
je next

invoke lstrlen,offset buf
sub eax,3
push eax

mov byte ptr [buf+eax],0
lea eax,[ebp-118h]
invoke lstrcat,offset buf,eax

invoke lstrlen,offset buf

mov dword ptr [buf+eax],'*.*\'
mov byte ptr [buf+eax+4],0

call find_files

pop eax
mov dword ptr [buf+eax-1],'*.*\'
mov byte ptr [buf+eax+3],0

jmp next

found:
lea eax,[ebp-118h]
invoke lstrlen,eax
cmp dword ptr [ebp-118h+eax-4],'txt.'
jne next

lea eax,[ebp-118h]
invoke MessageBox,0,eax,eax,0

next:
lea eax,[ebp-144h]
invoke FindNextFile,dword ptr [ebp-6h],eax
test eax,eax
jne find_next

invoke FindClose,dword ptr [ebp-6h]

exit:
leave
ret
find_files endp

start:
invoke SetErrorMode,SEM_FAILCRITICALERRORS



invoke GetLogicalDrives


mov ecx,25

find_drives:
mov ebx,1
shl ebx,cl
and ebx,eax
je no_disk

add cl,65
mov byte ptr buf,cl
sub cl,65
mov dword ptr buf+1,'.*\:'
mov byte ptr buf+5,'*'
mov byte ptr buf+6,0

push eax
push ecx

call find_files

pop ecx
pop eax

no_disk:
dec ecx
jge find_drives

invoke ExitProcess,0
end start