---
title: "Korrupt exe-fil utanför webroot"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/151187-korrupt-exe-fil-utanför-webroot"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "ironhead"
published: "2006-09-11T11:38:18.000Z"
updated: "2006-09-11T12:46:57.000Z"
replies: 2
views: 324
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/151187-korrupt-exe-fil-utanför-webroot"
---

# Korrupt exe-fil utanför webroot

## #1 — ironhead, 2006-09-11T11:38Z

Hej!

Jag har testat detta skript:
<http://www.webforum.nu/showthread.php?p=1006363#post1006363>

och testat detta:

```
    Private Sub FileDown()
        Dim buffer(10000) As Byte
        Dim length As Integer
        Dim dataToRead As Long
        Dim filepath As String = "C:\Temp\fil.exe"
        Dim filename As String = System.IO.Path.GetFileName(filepath)
        Try
            iStream = New System.IO.FileStream(filepath, System.IO.FileMode.Open, _
                                                   IO.FileAccess.Read, IO.FileShare.Read)
            dataToRead = iStream.Length
            Response.ContentType = "application/octet-stream"
            Response.AddHeader("Content-Disposition", "attachment; filename=" & filename)
            While dataToRead > 0
                If Response.IsClientConnected Then
                    length = iStream.Read(buffer, 0, 10000)
                    Response.OutputStream.Write(buffer, 0, length)
                    Response.Flush()
                    ReDim buffer(10000)
                    dataToRead = dataToRead - length
                Else
                    dataToRead = -1
                End If
            End While
        Catch ex As Exception
            Response.Write("Error : " & ex.Message)
        Finally
            If IsNothing(iStream) = False Then
                iStream.Close()
            End If
        End Try
    End Sub
```

 

Det fungerar jättebra på textfiler, men när jag använder detta skript till exe-filer så blir de korrupta. Måste man modifiera skriptet för att det ska kunna hantera exe-filer?

Permalänk: https://www.webforum.nu/p/151187

## #2 — ironhead, 2006-09-11T12:06Z

Hjälper inte att sätta ContentType till "application/x-msdownload" heller... :-/

Permalänk: https://www.webforum.nu/p/1866281

## #3 — ironhead, 2006-09-11T12:46Z

Jag fick till det tillslut ;)

```
        Dim filename As String = "C:\temp\fil.exe"
        Dim fs As FileStream = New FileStream(filename, FileMode.Open)
        Dim r As BinaryReader = New BinaryReader(fs)
        r.BaseStream.Seek(0, SeekOrigin.Begin)
        Dim imageData() As Byte = r.ReadBytes(Convert.ToInt32(fs.Length))
        r.Close()
        fs.Close()
        Response.Buffer = True
        Response.Clear()
        Response.ContentType = "application/octet-stream"
        Response.AddHeader("Content-Disposition", ("attachment; filename=" + filename))
        Response.BinaryWrite(imageData)
        Response.Flush()
        Response.End()
```

Permalänk: https://www.webforum.nu/p/1866296

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/151187-korrupt-exe-fil-utanför-webroot