Sentinel驱动模拟源码

;===================================================================================
; code by laomms 2007.4.25
;===================================================================================

.386
.model flat, stdcall
option casemap:none

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include w2k\ntstatus.inc
include w2k\ntddk.inc
include w2k\ntoskrnl.inc
includelib d:\masm32\lib\w2k\ntoskrnl.lib
include Strings.mac
include Sentinel.Inc

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data
datfile         dw '\','?','?','\','c',':','\','s','u','p','e','r','p','r','o','.','d','a','t',0,0

hFile    dd 0   
Buffer1  dw 0  
Buffer2         dw 0   
Buffer3         dw 0   
Buffer4         dw 0   
Buffer5         dw    64 dup(0) 
Buffer6         dw 0   
  db    128 dup(0) 

Buffer7         dd 0   
  db    24 dup(0) 
Buffer8         db    4 dup(0)  
Buffer9         dd 0   
  db    512 dup(0)  
  
   
Buffer  dd 0   
data1         dd 0   
data2         dd 0   
data3         dd 0   
data4         dd 0   
  db    16 dup(0)
data5         db    4 dup(0)  
data6         dd 0 
data7         dd 0   
  db    256 dup(0) 
  
data8         dd 0 

.const

CCOUNTED_UNICODE_STRING   "                           
CCOUNTED_UNICODE_STRING   "                           
CCOUNTED_UNICODE_STRING                 "                          
CCOUNTED_UNICODE_STRING                 "
CCOUNTED_UNICODE_STRING                 "", DataFileName, 4
                       
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code
DriverEntry proc pDriverObject:PDRIVER_OBJECT,RegistryPath:PUNICODE_STRING                                

LOCAL deviceNameUnicodeString,deviceLinkUnicodeString:UNICODE_STRING
LOCAL status:NTSTATUS
LOCAL pDeviceObject:PVOID

      mov status,STATUS_DEVICE_CONFIGURATION_ERROR
      invoke IoCreateDevice, pDriverObject, 0, addr DONGLE_DEVICE_NAME, FILE_DEVICE_UNKNOWN, \            
                                            0, FALSE, addr pDeviceObject
                                    
      .if eax == STATUS_SUCCESS                                                                            
            invoke IoCreateSymbolicLink, addr SymbolicLinkName, addr DONGLE_DEVICE_NAME                    
           .if eax == STATUS_SUCCESS                                                                      
                mov eax, pDriverObject
                assume eax:PTR DRIVER_OBJECT
                mov [eax].MajorFunction[IRP_MJ_CREATE*(sizeof PVOID)], offset DispatchCreateClose         
                mov [eax].MajorFunction[IRP_MJ_CLEANUP*(sizeof PVOID)], offset DispatchCreateClose
                mov [eax].MajorFunction[IRP_MJ_CLOSE*(sizeof PVOID)], offset DispatchCreateClose
                mov [eax].MajorFunction[IRP_MJ_DEVICE_CONTROL*(sizeof PVOID)], offset DispatchControl
                mov [eax].DriverUnload, offset DriverUnload
                assume eax:nothing
                mov status, STATUS_SUCCESS
                jmp    @f
           .else
                invoke IoDeleteDevice, pDeviceObject
                jmp    @exit
           .endif
      .endif
     
      invoke IoCreateDevice, pDriverObject, 0, addr DeviceString, FILE_DEVICE_UNKNOWN, \            
                                            0, FALSE, addr pDeviceObject
                                    
      .if eax == STATUS_SUCCESS                                                                            
            invoke IoCreateSymbolicLink, addr DestinationString, addr DeviceString                    
           .if eax == STATUS_SUCCESS                                                                      
                mov eax, pDriverObject
                assume eax:PTR DRIVER_OBJECT
                mov [eax].MajorFunction[IRP_MJ_CREATE*(sizeof PVOID)], offset DispatchCreateClose         
                mov [eax].MajorFunction[IRP_MJ_CLEANUP*(sizeof PVOID)], offset DispatchCreateClose
                mov [eax].MajorFunction[IRP_MJ_CLOSE*(sizeof PVOID)], offset DispatchCreateClose
                mov [eax].MajorFunction[IRP_MJ_DEVICE_CONTROL*(sizeof PVOID)], offset DispatchControl
                mov [eax].DriverUnload, offset DriverUnload
                assume eax:nothing
                mov status, STATUS_SUCCESS
                jmp    @f
           .else
                invoke IoDeleteDevice, pDeviceObject
                jmp    @exit
           .endif
      .endif
     
@@:
                call MyCreateFile

  cmp hFile, esi
  jz @xor

  push 10h  ; Length
  push esi  ; int
  push offset Buffer ; Buffer
  call MyReadFile

  mov eax, Buffer
  push 10h
  test eax, eax
  pop esi
  jz @@3

  shl eax, 4
  push eax  ; Length
  push esi  ; int
  push offset data5 ; Buffer
  call MyReadFile

  mov eax, Buffer
  xor ebx, ebx
  xor edx, edx
  lea esi, [eax+1]
  shl esi, 4
  test eax, eax
  jbe @@4

  mov edi, pDriverObject

@@1:    
  test edx, edx
  jnz @@2

  mov edi, data6

@@2:    
  mov ecx, edx
  shl ecx, 4
  add ebx, data7[ecx]
  sub data6[ecx], edi
  inc edx
  cmp edx, eax
  jb @@1

  jmp @@4

 

@@3:    
  mov ebx, pDriverObject

@@4:    
  mov edi, 80h
  mov Buffer7, esi
  push edi  ; Length
  push esi  ; int
  push Buffer1 ; Buffer
  call MyReadFile

  add esi, edi
  push edi  ; Length
  push esi  ; int
  push offset Buffer6 ; Buffer
  call MyReadFile

  test ebx, ebx
  jbe @xor

  mov eax, ebx
  add esi, edi
  shl eax, 3
  push eax  ; Length
  push esi  ; int
  push offset Buffer8 ; Buffer
  call MyReadFile

@xor:    
  xor eax, eax

@exit:    
     
  pop edi
  pop esi
  pop ebx
  leave
  retn 8

DriverEntry endp

DispatchCreateClose proc pDeviceObject:PDEVICE_OBJECT, pIrp:PIRP

       mov eax, pIrp
       assume eax:ptr _IRP
       mov [eax].IoStatus.Status, STATUS_SUCCESS
       and [eax].IoStatus.Information, 0
       assume eax:nothing
       fastcall IofCompleteRequest, pIrp, IO_NO_INCREMENT
       mov eax, STATUS_SUCCESS
       ret

DispatchCreateClose endp
DriverUnload proc pDriverObject:PDRIVER_OBJECT

       invoke IoDeleteSymbolicLink, addr SymbolicLinkName 
       invoke IoDeleteSymbolicLink, addr DestinationString                       
       mov eax, pDriverObject
       invoke IoDeleteDevice, (DRIVER_OBJECT PTR [eax]).DeviceObject      
       ret

DriverUnload endp
DispatchControl proc near  ; DATA XREF: start+B3o

var_418  = dword ptr -418h
var_412  = word ptr -412h
var_408  = dword ptr -408h
var_404  = dword ptr -404h
var_400  = dword ptr -400h
var_3F8  = dword ptr -3F8h
var_3E8  = byte ptr -3E8h
var_3E4  = word ptr -3E4h
var_3E2  = word ptr -3E2h
var_3E0  = word ptr -3E0h
var_3DE  = word ptr -3DEh
var_3DC  = dword ptr -3DCh
var_1C  = dword ptr -1Ch
var_18  = dword ptr -18h
var_14  = dword ptr -14h
var_10  = dword ptr -10h
var_C  = dword ptr -0Ch
var_8  = dword ptr -8
var_1  = byte ptr -1
pIrp  = dword ptr  0Ch

  push ebp
  mov ebp, esp
  sub esp, 418h
  mov eax, [ebp+pIrp]
  push ebx
  push esi
  mov edx, 100h
  mov ebx, [eax+3Ch]
  push edi
  mov ecx, edx
  mov esi, ebx
  lea edi, [ebp+var_418]
  mov [ebp+var_14], ebx
  rep movsd
  cmp [ebp+var_408], 80003h
  jnz @@1

  and [ebp+var_412], 0
  mov ecx, edx
  lea esi, [ebp+var_418]
  mov edi, ebx
  rep movsd
  and dword ptr [eax+18h], 0
  mov dword ptr [eax+1Ch], 400h
  xor dl, dl
  mov ecx, eax
  jmp @@exit

@@1:    
  mov esi, [ebp+var_404]
  mov edi, [ebp+var_400]
  mov [ebp+var_10], esi
  xor ebx, ebx
  mov [ebp+var_18], esi
  mov [ebp+var_1], 1

@@2:    
  movsx eax, [ebp+var_1]
  dec eax
  push eax
  push esi
  call func1

  cmp eax, edi
  jz @@3

  inc [ebp+var_1]
  cmp [ebp+var_1], 3
  jl @@2

  jmp @@4

@@3:    
  mov esi, ebx
  mov [ebp+var_404], esi

@@4:    
  cmp [ebp+var_1], 3
  jnz @@7

  mov eax, [ebp+var_1C]
  push eax
  mov data8, eax
  call func4

  lea eax, [ebp+var_C]
  mov [ebp+var_8], esi
  push eax
  lea eax, [ebp+var_8]
  push eax
  mov [ebp+var_C], edi
  call func6

  xor ebx, ebx
  cmp [ebp+var_8], ebx
  jnz @@6

  cmp [ebp+var_C], ebx
  jnz @@6

  push 7Ch
  mov [ebp+var_404], ebx
  mov [ebp+var_400], ebx
  lea esi, [ebp+var_3F8]
  pop edi

@@5:    
  mov eax, [esi-4]
  mov [ebp+var_8], eax
  mov eax, [esi]
  mov [ebp+var_C], eax
  lea eax, [ebp+var_C]
  push eax
  lea eax, [ebp+var_8]
  push eax
  call func5

  mov eax, [ebp+var_8]
  mov [esi-4], eax
  mov eax, [ebp+var_C]
  mov [esi], eax
  add esi, 8
  dec edi
  jnz @@5

  jmp @@11

@@6:    
  mov [ebp+var_412], bx
  jmp @@34

@@7:    
  push 1
  lea esi, [ebp+var_400]
  pop edi

@@8:    
  lea eax, [edi-3]
  push 4
  cdq
  pop ecx
  idiv ecx
  movsx eax, [ebp+var_1]
  test edx, edx
  jz @@9

  dec eax
  push eax
  push [ebp+var_10]
  call func1

  jmp @@10

@@9:    
  dec eax
  push eax
  push [ebp+var_10]
  call func2 

@@10:    
  mov ecx, [esi]
  xor eax, ecx
  inc edi
  mov [esi], eax
  add esi, 4
  cmp edi, 0FAh
  mov [ebp+var_10], ecx
  jle @@8

  xor ebx, ebx

@@11:    
  movzx eax, [ebp+var_3E8]
  cmp eax, 0Bh
  jg @@15

  jz @@14

  dec eax
  jz @13

  dec eax
  dec eax
  jz @@27

  sub eax, 5
  jz @12

  dec eax
  jz @@27

  dec eax
  jnz @@28

  cmp [ebp+var_3E4], 40h
  mov [ebp+var_412], 3
  jnb @@28

  movzx eax, [ebp+var_3E4]
  mov ax, Buffer1[eax*2]
  mov [ebp+var_3E2], ax
  jmp @@27

@12:    
  mov ax, Buffer2
  mov [ebp+var_412], 3
  cmp [ebp+var_3DE], ax
  jnz @@28

  mov [ebp+var_3E4], ax
  jmp @@27

@13:    
  mov [ebp+var_3E4], 3207h
  mov [ebp+var_3E2], 508h
  jmp @@27

@@14:    
  cmp [ebp+var_3E4], 40h
  mov [ebp+var_412], 3
  jnb @@28

  movzx eax, [ebp+var_3E4]
  shl eax, 1
  mov cx, Buffer1[eax]
  mov ax, Buffer6[eax]
  mov [ebp+var_3E2], cx
  mov [ebp+var_3E0], ax
  jmp @@27

@@15:    
  sub eax, 0Ch
  jz @@25

  dec eax
  jz @@23

  dec eax
  jz @@22

  dec eax
  jz @@21

  dec eax
  jnz @@28

  mov ecx, Buffer
  xor eax, eax
  cmp ecx, ebx
  jbe @@17

  movzx esi, [ebp+var_3E4]
  mov edx, offset data5

@@16:    
  cmp [edx], esi
  jz @@17

  inc eax
  add edx, 10h
  cmp eax, ecx
  jb @@16

@@17:    
  cmp eax, ecx
  jnz @@18

  mov [ebp+var_412], 3
  jmp @@28

@@18:    
  shl eax, 4
  xor edx, edx
  mov ecx, data6[eax]
  mov eax, data7[eax]
  cmp eax, ebx
  jbe @@27

  lea esi, Buffer8[ecx*4]

@@19:    
  mov edi, [esi]
  cmp edi, [ebp+var_3DC]
  jz @@20

  inc edx
  add esi, 8
  cmp edx, eax
  jb @@19

  jmp @@27

@@20:    
  lea eax, [ecx+edx*2]
  mov eax, Buffer9[eax*4]
  mov [ebp+var_3DC], eax
  jmp @@27

@@21:    
  cmp [ebp+var_3E4], 40h
  mov [ebp+var_412], 3
  jnb @@28

  movzx eax, [ebp+var_3E4]
  cmp Buffer6[eax*2], 3
  jnz @@28

  jmp @@27

@@22:    
  cmp [ebp+var_3E4], 40h
  mov [ebp+var_412], 3
  jnb @@28

  mov ax, [ebp+var_3DE]
  cmp ax, Buffer3
  jnz @@28

  mov ax, word ptr [ebp+var_3DC]
  cmp ax, Buffer4
  jnz @@28

  mov ax, word ptr [ebp+var_3DC+2]
  cmp ax, Buffer5
  jmp @@24

 

@@23:    
  cmp [ebp+var_3E4], 40h
  mov [ebp+var_412], 3
  jnb @@28

  mov ax, [ebp+var_3DE]
  cmp ax, Buffer3

@@24:    
  jnz @@28

  movzx eax, [ebp+var_3E4]
  mov cx, [ebp+var_3E2]
  mov Buffer1[eax*2], cx
  jmp @@26

@@25:    
  cmp [ebp+var_3E4], 40h
  mov [ebp+var_412], 3
  jnb @@28

  mov ax, [ebp+var_3DE]
  cmp ax, Buffer3
  jnz @@28

  movzx eax, [ebp+var_3E4]
  dec Buffer1[eax*2]
  lea eax, Buffer1[eax*2]

@@26:    
  call MyCreateFile

  cmp hFile, ebx
  jz @@27

  push 80h  ; Length
  push Buffer7 ; int
  push Buffer1 ; Buffer
  call MyWriteFile

  call MyCloseFile

@@27:    ;
  mov [ebp+var_412], bx

@@28:    
  cmp [ebp+var_1], 1
  jl @@32

  cmp [ebp+var_1], 2
  jg @@32

  mov ecx, [ebp+var_18]
  push 1
  xor ecx, [ebp+var_404]
  pop edi
  lea esi, [ebp+var_400]
  mov [ebp+var_404], ecx

@@29:    
  lea eax, [edi-3]
  push 4
  cdq
  pop ebx
  idiv ebx
  movsx eax, [ebp+var_1]
  test edx, edx
  jz @@30

  dec eax
  push eax
  push ecx
  call func1

  jmp @@31

@@30:    
  dec eax
  push eax
  push ecx
  call func2 

@@31:    
  xor [esi], eax
  mov ecx, [esi]
  inc edi
  add esi, 4
  cmp edi, 0FAh
  jle @@29

  xor ebx, ebx
  jmp @@34

@@32:    
  mov eax, [ebp+var_1C]
  push eax
  mov data8, eax
  call func4

  push 7Dh
  lea esi, [ebp+var_400]
  pop edi

@@33:    
  mov eax, [esi-4]
  mov [ebp+var_8], eax
  mov eax, [esi]
  mov [ebp+var_C], eax
  lea eax, [ebp+var_C]
  push eax
  lea eax, [ebp+var_8]
  push eax
  call func5

  mov eax, [ebp+var_8]
  mov [esi-4], eax
  mov eax, [ebp+var_C]
  mov [esi], eax
  add esi, 8
  dec edi
  jnz @@33

@@34:    
  mov edi, [ebp+var_14]
  mov ecx, 100h
  lea esi, [ebp+var_418]
  xor dl, dl  ; PriorityBoost
  rep movsd
  mov ecx, [ebp+pIrp] ; Irp
  mov [ecx+18h], ebx
  mov dword ptr [ecx+1Ch], 400h

@@exit:    
  call ds:IofCompleteRequest
  pop edi
  pop esi
  xor eax, eax
  pop ebx
  leave
  retn 8

DispatchControl endp

func1 proc near  

var_10  = dword ptr -10h
var_C  = dword ptr -0Ch
var_8  = word ptr -8
var_6  = word ptr -6
var_4  = word ptr -4
var_2  = word ptr -2
arg_0  = dword ptr  8
arg_4  = dword ptr  0Ch

  push ebp
  mov ebp, esp
  sub esp, 10h
  mov edx, [ebp+arg_0]
  push ebx
  mov ebx, [ebp+arg_4]
  mov eax, edx
  shr eax, 1Fh
  lea ecx, [edx+edx]
  push esi
  or eax, ecx
  mov ecx, edx
  shr ecx, 10h
  mov [ebp+var_4], 2B8Dh
  mov [ebp+var_2], 2E75h
  mov si, [ebp+ebx*2+var_4]
  xor ecx, eax
  imul esi, ecx
  mov ecx, 0FFFFh
  push edi
  mov [ebp+var_8], 27C5h
  mov [ebp+var_6], 294Ch
  mov di, [ebp+ebx*2+var_8]
  and esi, ecx
  shr eax, 10h
  add edi, esi
  xor eax, edx
  imul edi, eax
  and edi, ecx
  mov [ebp+var_10], 27C52B8Dh
  mov [ebp+var_C], 294C2E75h
  jnz @@1

  test esi, esi
  jnz @@1

  mov eax, [ebp+ebx*4+var_10]
  jmp @exit

@@1:    
  test ebx, ebx
  push 10h
  push 2
  jnz @@2

  call func3

  imul eax, edi
  add eax, esi
  jmp @exit

@@2:    
  call func3

  imul eax, esi
  add eax, edi

@exit:    
  pop edi
  pop esi
  pop ebx
  leave
  retn 8

func1 endp

func2 proc near  

var_1C  = dword ptr -1Ch
var_18  = dword ptr -18h
var_14  = dword ptr -14h
var_10  = dword ptr -10h
var_C  = dword ptr -0Ch
var_8  = dword ptr -8
var_4  = dword ptr -4
arg_0  = dword ptr  8
arg_4  = dword ptr  0Ch

  push ebp
  mov ebp, esp
  sub esp, 1Ch
  mov ecx, [ebp+arg_0]
  mov eax, [ebp+arg_4]
  and [ebp+var_4], 0
  mov edx, ecx
  push ebx
  add eax, eax
  push esi
  push edi
  shr edx, 10h
  mov word ptr [ebp+var_8], 2F51h
  mov word ptr [ebp+var_8+2], 3105h
  mov di, word ptr [ebp+eax+var_8]
  inc edx
  imul edi, edx
  mov esi, 0FFFFh
  mov word ptr [ebp+var_C], 4A0Fh
  mov word ptr [ebp+var_C+2], 3FE6h
  mov bx, word ptr [ebp+eax+var_C]
  and edi, esi
  inc ecx
  imul ebx, ecx
  and ebx, esi
  and [ebp+var_8], 0
  mov [ebp+var_1C], 0FFFFFE1Dh
  mov [ebp+var_18], 0E9F19FDFh

@@1:    
  mov [ebp+var_10], 8

@1:    
  push 0Ah
  push 2
  call func3

  imul eax, edi
  and eax, esi
  push 0Ch
  push 2
  mov [ebp+arg_0], eax
  call func3

  imul eax, edi
  and eax, esi
  push 0Dh
  xor [ebp+arg_0], eax
  push 2
  call func3

  imul eax, edi
  xor eax, [ebp+arg_0]
  push 0Fh
  push 2
  and eax, 8000h
  mov [ebp+arg_0], eax
  call func3

  imul eax, edi
  and eax, esi
  xor [ebp+arg_0], eax
  shr edi, 1
  and edi, esi
  xor [ebp+arg_0], edi
  mov eax, [ebp+arg_0]
  not eax
  and eax, 1
  mov [ebp+var_C], eax
  jz @2

  push 0Eh
  push 2
  call func3

  imul eax, ebx
  mov ecx, ebx
  shl ecx, 2
  xor ecx, ebx
  shl ecx, 1
  xor ecx, ebx
  and cx, 0C000h
  xor eax, ecx
  shl eax, 1
  and eax, esi
  shr ebx, 1
  or ebx, eax

@2:    
  mov ecx, [ebp+var_C]
  mov eax, ebx
  and eax, 1
  mov edi, [ebp+arg_0]
  xor ecx, eax
  mov eax, [ebp+var_4]
  shl ecx, 1
  shl eax, 2
  or ecx, eax
  and ecx, esi
  or ecx, [ebp+var_C]
  dec [ebp+var_10]
  mov [ebp+var_4], ecx
  jnz @1

  cmp [ebp+var_8], 0
  jnz @3

  mov eax, ecx
  mov [ebp+var_14], eax
  jmp @4

 

@3:    
  mov ebx, [ebp+var_4]

@4:    
  inc [ebp+var_8]
  cmp [ebp+var_8], 2
  jl @@1

  mov esi, [ebp+arg_4]
  push 10h
  test esi, esi
  push 2
  jnz @@2

  call func3

  imul eax, [ebp+var_14]
  add eax, ebx
  jmp @@3

 

@@2:    
  call func3

  imul eax, ebx
  add eax, [ebp+var_14]

@@3:    
  test eax, eax
  jnz @exit

  mov eax, [ebp+esi*4+var_1C]

@exit:    
  pop edi
  pop esi
  pop ebx
  leave
  retn 8

func2  endp

func4 proc near  

arg_0  = dword ptr  10h

  push ebx
  push ebp
  push esi
  mov esi, [esp+arg_0]
  push edi
  push 1
  push esi
  call func2 

  mov edi, eax
  push 1
  shl esi, 2
  xor esi, edi
  push esi
  call func1

  shl esi, 2
  xor esi, edi
  push 0
  push esi
  mov ebx, eax
  call func2 

  mov ebp, eax
  mov eax, esi
  shl eax, 2
  xor eax, edi
  push 0
  push eax
  call func1

  mov data1, edi
  pop edi
  mov data3, ebp
  pop esi
  mov data2, ebx
  pop ebp
  mov data4, eax
  pop ebx
  retn 4

func4          endp
func5    proc near  

var_8  = dword ptr -8
var_4  = dword ptr -4
arg_0  = dword ptr  8
arg_4  = dword ptr  0Ch

  push ebp
  mov ebp, esp
  push ecx
  push ecx
  mov eax, [ebp+arg_0]
  push ebx
  push esi
  push edi
  mov eax, [eax]
  xor ebx, ebx
  mov [ebp+var_4], eax
  mov eax, [ebp+arg_4]
  mov [ebp+var_8], 20h
  mov edi, [eax]

@@1:    
  push 4
  push 2
  sub ebx, 61C88647h
  call func3

  imul eax, edi
  mov ecx, data1
  mov esi, edi
  shr esi, 5
  add esi, data2
  add ecx, eax
  lea eax, [ebx+edi]
  push 4
  xor esi, ecx
  push 2
  xor esi, eax
  add esi, [ebp+var_4]
  call func3

  imul eax, esi
  mov edx, data3
  mov ecx, esi
  shr ecx, 5
  add ecx, data4
  add edx, eax
  lea eax, [esi+ebx]
  mov [ebp+var_4], esi
  xor ecx, edx
  xor ecx, eax
  add edi, ecx
  dec [ebp+var_8]
  jnz @@1

  mov eax, [ebp+arg_0]
  mov [eax], esi
  mov eax, [ebp+arg_4]
  mov [eax], edi
  pop edi
  pop esi
  pop ebx
  leave
  retn 8

func5    endp

func6    proc near  

var_4  = dword ptr -4
arg_0  = dword ptr  8
arg_4  = dword ptr  0Ch

  push ebp
  mov ebp, esp
  push ecx
  mov eax, [ebp+arg_0]
  push ebx
  push esi
  push edi
  mov ebx, [eax]
  mov eax, [ebp+arg_4]
  mov edi, 0C6EF3720h
  mov [ebp+var_4], 20h
  mov esi, [eax]

@@:    
  push 4
  push 2
  call func3

  imul eax, ebx
  mov edx, ebx
  add edi, 61C88647h
  shr edx, 5
  add edx, data4
  lea ecx, [edi+ebx-61C88647h]
  push 4
  push 2
  xor ecx, edx
  mov edx, data3
  add edx, eax
  xor ecx, edx
  sub esi, ecx
  call func3

  imul eax, esi
  mov edx, esi
  lea ecx, [esi+edi-61C88647h]
  shr edx, 5
  add edx, data2
  xor ecx, edx
  mov edx, data1
  add edx, eax
  xor ecx, edx
  sub ebx, ecx
  dec [ebp+var_4]
  jnz @b

  mov eax, [ebp+arg_0]
  pop edi
  mov [eax], ebx
  mov eax, [ebp+arg_4]
  mov [eax], esi
  pop esi
  pop ebx
  leave
  retn 8

func6    endp
func3         proc near  

  mov ecx, [esp+4]
  mov eax, [esp+8]
  cmp ecx, 1
  jbe @exit

  dec ecx

@@:    
  imul eax, [esp+arg_0]
  dec ecx
  jnz @b

@exit:    
  ret

func3 endp

MyCreateFile proc
local oa:OBJECT_ATTRIBUTES
local iosb:IO_STATUS_BLOCK

                InitializeObjectAttributes addr oa, addr DataFileName, OBJ_CASE_INSENSITIVE + OBJ_KERNEL_HANDLE, NULL, NULL
                invoke ZwCreateFile, addr hFile, SYNCHRONIZE, addr oa, addr iosb, 0, FILE_ATTRIBUTE_NORMAL, \
                                     0, FILE_CREATE, FILE_SYNCHRONOUS_IO_NONALERT, NULL, 0
                .if eax == STATUS_SUCCESS
                        mov hFile, eax
                        invoke ZwClose, hFile
                .else
                        jmp    @exit
                .endif
   
@exit:  
                ret
               
MyCreateFile endp
MyReadFile proc
local oa:OBJECT_ATTRIBUTES
local iosb:IO_STATUS_BLOCK
local p:PVOID
local cb:DWORD
local fsi:FILE_STANDARD_INFORMATION

    invoke DbgPrint, $CTA0("\nFileWorks: Opening file for reading\n")
    InitializeObjectAttributes addr oa, addr DataFileName, OBJ_CASE_INSENSITIVE + OBJ_KERNEL_HANDLE, NULL, NULL
    invoke ZwOpenFile, addr hFile, FILE_READ_DATA + SYNCHRONIZE, addr oa, addr iosb, \
                FILE_SHARE_READ + FILE_SHARE_WRITE + FILE_SHARE_DELETE, FILE_SYNCHRONOUS_IO_NONALERT
    .if eax == STATUS_SUCCESS
        invoke DbgPrint, $CTA0("File openeded\n")
        invoke ZwQueryInformationFile, hFile, addr iosb, addr fsi, sizeof fsi, FileStandardInformation
        .if eax == STATUS_SUCCESS
            mov eax, fsi.EndOfFile.LowPart
            inc eax
            mov cb, eax
            invoke ExAllocatePool, PagedPool, cb
            .if eax != NULL
                mov p, eax
                invoke RtlZeroMemory, p, cb
                invoke ZwReadFile, hFile, 0, NULL, NULL, addr iosb, p, cb, 0, NULL
                .if eax == STATUS_SUCCESS
                    invoke DbgPrint, $CTA0("File content: \=%s\=\n"), p
                .else
                    invoke DbgPrint, $CTA0("Can't read from the file. Status: %08X\n"), eax
                .endif
                invoke ExFreePool, p
            .else
                invoke DbgPrint, $CTA0("Can't allocate memory. Status: %08X\n"), eax
            .endif
        .else
            invoke DbgPrint, $CTA0("Can't query file size. Status: %08X\n"), eax
        .endif
        invoke ZwClose, hFile
    .else
        invoke DbgPrint, $CTA0("Can't open file. Status: %08X\n"), eax
    .endif
    ret
MyReadFile endp

MyWriteFile proc
local oa:OBJECT_ATTRIBUTES
local iosb:IO_STATUS_BLOCK

    invoke DbgPrint, $CTA0("\ Opening file for writing\n")
    InitializeObjectAttributes addr oa, addr DataFileName, OBJ_CASE_INSENSITIVE + OBJ_KERNEL_HANDLE, NULL, NULL
   
    invoke ZwCreateFile, addr hFile, FILE_WRITE_DATA + SYNCHRONIZE, addr oa, addr iosb, \
                        0, 0, FILE_SHARE_READ, FILE_OPEN, FILE_SYNCHRONOUS_IO_NONALERT, NULL, 0
    .if eax == STATUS_SUCCESS
        invoke DbgPrint, $CTA0("File openeded\n")
        CTA0 "Data can be written to an open file", g_szData, 4
        invoke ZwWriteFile, hFile, 0, NULL, NULL, addr iosb, addr g_szData, sizeof g_szData - 1, NULL, NULL
        .if eax == STATUS_SUCCESS
            invoke DbgPrint, $CTA0(" File was written\n")
        .else
            invoke DbgPrint, $CTA0("Can't write to the file. Status: %08X\n"), eax
        .endif
        invoke ZwClose, hFile
    .else
        invoke DbgPrint, $CTA0("Can't open file. Status: %08X\n"), eax
    .endif
    ret
MyWriteFile endp

MyCloseFile proc near

                invoke ZwClose,hFile
                xor    eax, eax
                ret
               
MyCloseFile endp

end DriverEntry