Recibí un .vbs en Skype y lo ejecuté

Recibí un archivo .vbs en Skype y lo ejecuté. Por favor, avíseme si hace algo.

el código contenido

Está ofuscado y puedes estar seguro de que no es benigno. Considere su computadora en la que la ejecutó como "no segura". Lo que significa que no debe hacer ningún tipo de banca en él, no ordenar nada por Internet y no confiar en esa máquina en absoluto.

En una máquina diferente, una que no se vea comprometida, cambie todas las contraseñas de sus cuentas y luego no acceda a esas cuentas desde la computadora infectada.

Sería aconsejable reformatear la computadora en la que ejecutó el script desde medios buenos conocidos, preferiblemente con el Arranque seguro habilitado en su BIOS / UEFI cuando inicia ese medio para hacerlo.

Si usted todavía está preocupado por lo que podría haber sucedido a su ordenador, echar un vistazo a este (líneas se transforman en cadenas Por razones de seguridad). No intente ejecutar este código si no sabe lo que está haciendo. Estoy en el cajero automático, así que no puedo analizar este código en profundidad, pero no parece bueno. De una descripción rápida descubrí que hay

• Manipulación de archivos y carpetas
• Manipulación del registro (especialmente programas de inicio)
• Envío de solicitudes (noté un dominio en particular: kingprog.publicvm.com, pero puede haber muchos otros)
• Manipulación de la unidad

Es posible que desee pedirle a alguien que revise esto o espere unas horas hasta que llegue a casa y me pondré en contacto con usted con más información.

Todavía te recomendaría que sigas los consejos de headkase.

EDITAR En caso de que no esté claro, el enlace adjunto es el código vbs desobuscado

¡Descifré este código vbscript!

El archivo sospechoso se encuentra en esta carpeta. %Appdata%

Y verifique en su registro cualquier entrada sospechosa en:

HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run

y

HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run

Utilizo un vbscript que puede encontrar cualquier archivo vbscript sospechoso ejecutándose en segundo plano.

Entonces, este código puede recuperar la ubicación y copiar el código fuente de este archivo vbscript sospechoso: simplemente, copie y pegue como Find_any_Running_VbsCode.vbs y ejecútelo haciendo doble clic:

Option Explicit
Dim Title,colItems,objItem,FilePath,ws
Dim MyProcess,LogFile,fso,Contents,arrCommandLine
MyProcess = "Wscript.exe"
Title = "Searching for instances of "& DblQuote(MyProcess) &" by Hackoo 2016"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
LogFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "txt"
If fso.FileExists(LogFile) Then
    fso.DeleteFile(LogFile)
End If
Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _
& "Where Name like '%"& MyProcess &"%' AND NOT commandline like '%" & wsh.scriptname & "%'",,48)
For Each objItem in colItems
    arrCommandLine = Split(objItem.CommandLine,DblQuote(" "))
    'msgbox objItem.CommandLine
    If arrCommandLine(1) = "/c" Then 
    'msgbox arrCommandLine(2)
        FilePath = Replace(arrCommandLine(2),chr(34),"")
    else
    'msgbox arrCommandLine(1)
        FilePath = Replace(arrCommandLine(1),chr(34),"")
    end if 
    FilePath = Trim(FilePath)
    Msgbox "A suspicious file is running at this location : " & vbCrLF & DblQuote(FilePath),vbExclamation,Title
    If Len(FilePath) > 0 Then   
        Contents = ReadFile(FilePath,"all")
        Call WriteLog(DblQuote(FilePath) & vbCrlf & String(100,"*")& vbCrlf &_
        Contents & vbCrlf & String(100,"*") & vbCrlf,LogFile)
    End If  
Next
If fso.FileExists(LogFile) Then
    ws.run DblQuote(LogFile)
Else
    MsgBox "No running instances found for this process " &_
    DblQuote(MyProcess),vbExclamation,Title
End If  
'**************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**************************************************
Function ReadFile(path,mode)
    Const ForReading = 1
    Dim objFSO,objFile,i,strLine
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path,ForReading)
    If mode = "byline" then
        Dim arrFileLines()
        i = 0
        Do Until objFile.AtEndOfStream
            Redim Preserve arrFileLines(i)
            strLine = objFile.ReadLine
            strLine = Trim(strLine)
            If Len(strLine) > 0 Then
                arrFileLines(i) = strLine
                i = i + 1
                ReadFile = arrFileLines
            End If  
        Loop
        objFile.Close
    End If
    If mode = "all" then
        ReadFile = objFile.ReadAll
        objFile.Close
    End If
End Function
'***************************************************
Sub WriteLog(strText,LogFile)
    Dim fso,ts 
    Const ForAppending = 8
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(LogFile,ForAppending,True,-1)
    ts.WriteLine strText
    ts.Close
End Sub
'***************************************************