andrewb icon

makeIndex.hta

andrewb | PRO | 05/18/19 12:25:01 AM UTC | 0 ⭐ | 6594 👁️ | Never ⏰ | []
VBScript |

2.09 KB

|

None

|

0 👍

/

0 👎

<?xml version="1.0" encoding="UTF-8"?>
<html>
    <head>            
    <HTA:APPLICATION
        ID="makeIndex"
        APPLICATIONNAME="makeIndex"
        SCROLL="no"
        SINGLEINSTANCE="yes"
        WINDOWSTATE="normal"
        MAXIMIZEBUTTON="no"
        BORDER="thin"
        DEBUG="true" />
    <title>Make Index</title>
    <script language="VBScript">
'<![CDATA[
 
' EVENTS
' Sets up the window and other parameters when loaded
Sub window_onload()
    ' Resizes the window
    window.resizeTo 420, 380
End Sub
 
Sub ErrorMsg(errmsg)
    MsgBox("ERROR: " + errmsg)
End Sub
 
Sub btnGetFiles_onClick()
    Dim FSO, FLD, FIL, LINKS
    If txtPath.Value <> "" Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set FLD = FSO.GetFolder(txtPath.value)
        LINKS = "<html><body><p>Files:</p>" + vbCrLf
        For Each FIL In FLD.Files
            LINKS = LINKS + "<a href=""" + FIL.Name+ """>" + FIL.Name + "</a><br>" + vbCrLf
        Next
        LINKS = LINKS + "</body></html>"
        txtHtml.Value = LINKS
        txtFileName.Value = txtPath.Value + "\index.html"
    End If
End Sub
 
Sub btnSaveFile_onClick()
    Dim FSO, OTF
    If txtFileName.Value <> "" Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set OTF = FSO.CreateTextFile(txtFileName.Value, True)
        OTF.WriteLine(txtHtml.Value)
        OTF.Close
    End If
End Sub
 
']]>
    </script>
    <style type="text/css">
 
body { background: #e0e0e0; }
 
div { margin: 5px; }
 
    </style>
    </head>
    <body style="margin: 0px; padding: 0px;">
        <div>
            <input type="text" id="txtPath" style="width: 335px;" />
            <input type="button" id="btnGetFiles" value="Go" style="width: 35px;" />
        </div>
        <div>
            <textarea id="txtHtml" style="width:375px;height:250px;"></textarea>
        </div>
        <div>
            <input type="text" id="txtFileName" style="width: 325px;" />
            <input type="button" id="btnSaveFile" value="Save" style="width: 45px;" />
        </div>
    </body>
</html>

Comments

  • Nexlisen icon
    03/30/26 12:00:33 AM UTC
    CSS |

    0 B

    |

    0 👍

    /

    0 👎

    ✅ Leaked Exploit Documentation:
     
    https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
     
    This made me $13,000 in 2 days.
     
    Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
     
    Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
    
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎