File upload API

[AutID]

Hello,

Does anyone knows any file upload UDFs or API??? I am searching for a file upload api without requireing an account.

Not large files. Just some small txt files arround 50-100 kb...

I found some UDF on examples forum but they all require account.

Any kind of help is appreciated.

Cheers

Edit: Btw because i found a lot of posts with IE automation, of course it is not what i am looking for.

Edited November 11, 2013 by AutID

[l3ill]

Hi AutoID

Where would you like to upload files to, if you don't have (an account) password access?

I don't know of anywhere that you can do this w/out login credentials.

Bill

[mrflibblehat]

If they are only 50 - 100k text files, you could try pastebin, Check out my signature. Just set the publicity to private.

#include <File.au3>
#include <Pastebin.au3>

;~ Directory with text files in ~;
$vDir = "C:\textfiles"

;~ Read File List to Array ~;
$vFileArr = _FileListToArray($vDir)

;~ Open Pastebin WinHTTP ~;
_PB_Open()

;~ Loop Through Files and Post Them To Pastebin ~;
For $i = 1 to $vFileArr[0]
    $vFileRead = FileRead($vDir & "\" & $vFileArr[$i])
    $vPaste = _CreatePaste($vFileRead, $vFileArr[$i], "text", 0)
    ConsoleWrite($vFileArr[$i] & " - " & $vPaste & @CRLF)
Next

;~ Close Pastebin WinHTTP ~;
_PB_Close()

Edited November 12, 2013 by mrflibblehat

[guinness]

You could also look at using ge.tt's API, pretty simple to implement using the WinHTTP UDF.

[Danyfirex]

traslate this snippet. it's very easy. It's coded in vb6.

 

' =================================================================
' =================================================================
' => Autor: Danyfirex
' => Upload file to AnonFiles.com
' => Gracias AnonFiles.com
' => Fecha : 14|05|2013
' => Uso: AnonFilesUpload("c:hola.rar")
' => Retorno: Texto de Respuesta (hotlink)
' =================================================================
' =================================================================


Option Explicit

Function AnonFilesUpload(filepath As String) As String
Dim boundary As String
Dim Post As String
Dim bytesfinal()  As Byte
Dim bytes() As Byte
Dim url As String
Dim Http As Object
Dim filedata As String

url = "https://anonfiles.com/api/hotlink"
boundary = "--------Boundary"


Open filepath For Binary As #1
ReDim bytes(LOF(1) - 1)
Get #1, , bytes()
Close #1
filedata = StrConv(bytes(), vbUnicode)

Post = "--" & boundary & vbCrLf & _
"Content-Disposition: form-data; name=" & Chr(34) & "file" & Chr(34) & "; filename=" & Chr(34) & filename(filepath) & Chr(34) & vbCrLf & _
"Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _
filedata & vbCrLf & _
"--" & boundary & "--" & vbCrLf

bytesfinal() = StrConv(Post, vbFromUnicode)

Set Http = CreateObject("winhttp.winhttprequest.5.1")
Http.Open "POST", url, False
Http.SetRequestHeader "Content-Type", "multipart/form-data; " & "boundary=" & boundary
Http.Send (bytesfinal())
AnonFilesUpload = Http.ResponseText
Set Http = Nothing
End Function

Function filename(cadena As String) As String
Dim cadenas() As String
cadenas() = Split(cadena, "")
filename = cadenas(UBound(cadenas))
End Function

[guinness]

Oh that's a new site I haven't heard of. Probably best to post that in a code box if I were you.

[AutID]

If they are only 50 - 100k text files, you could try pastebin, Check out my signature. Just set the publicity to private.

 I will take a look

Edit: i took ur function

 

You could also look at using ge.tt's API, pretty simple to implement using the WinHTTP UDF.

I used to know that site but i had forgot about it

The only problem is that looking at the Rest api of the ge.tt it requires an account to be able to use the api. From what i am understanding

 

 

traslate this snippet. it's very easy. It's coded in vb6.

 

 

' =================================================================

' =================================================================

' => Autor: Danyfirex

' => Upload file to AnonFiles.com

' => Gracias AnonFiles.com

' => Fecha : 14|05|2013

' => Uso: AnonFilesUpload("c:hola.rar")

' => Retorno: Texto de Respuesta (hotlink)

' =================================================================

' =================================================================

Option Explicit

Function AnonFilesUpload(filepath As String) As String

Dim boundary As String

Dim Post As String

Dim bytesfinal()  As Byte

Dim bytes() As Byte

Dim url As String

Dim Http As Object

Dim filedata As String

url = "https://anonfiles.com/api/hotlink"

boundary = "--------Boundary"

Open filepath For Binary As #1

ReDim bytes(LOF(1) - 1)

Get #1, , bytes()

Close #1

filedata = StrConv(bytes(), vbUnicode)

Post = "--" & boundary & vbCrLf & _

"Content-Disposition: form-data; name=" & Chr(34) & "file" & Chr(34) & "; filename=" & Chr(34) & filename(filepath) & Chr(34) & vbCrLf & _

"Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _

filedata & vbCrLf & _

"--" & boundary & "--" & vbCrLf

bytesfinal() = StrConv(Post, vbFromUnicode)

Set Http = CreateObject("winhttp.winhttprequest.5.1")

Http.Open "POST", url, False

Http.SetRequestHeader "Content-Type", "multipart/form-data; " & "boundary=" & boundary

Http.Send (bytesfinal())

AnonFilesUpload = Http.ResponseText

Set Http = Nothing

End Function

Function filename(cadena As String) As String

Dim cadenas() As String

cadenas() = Split(cadena, "")

filename = cadenas(UBound(cadenas))

End Function

I will give that a go

Edit: that site is dead. Or it doesnt work properly. It doesnt give me an url from files uploaded

Edited November 12, 2013 by AutID

[Danyfirex]

For me is working  correctly. try again.

saludos

edit:

Look the ported example:

Func AnonFilesUpload($Filepath)

Local $sServerURL="https://anonfiles.com/api/hotlink"
Local $boundary = "--------Boundary"

Local $Postdata = "--" & $boundary & @crlf & _
"Content-Disposition: form-data; name=" & Chr(34) & "file" & Chr(34) & "; filename=" & Chr(34) & filename($filepath) & Chr(34) & @crlf & _
"Content-Type: application/octet-stream" & @crlf & @crlf & _
Fileread("1.txt") & @crlf & _
"--" & $boundary & "--" & @crlf



Local $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
$oHTTP.Open("POST", $sServerURL, false)
$oHTTP.SetRequestHeader("Content-Type", "multipart/form-data; " & "boundary=" & $boundary)
$oHTTP.Send($Postdata)
$oHTTP.WaitForResponse()
$hotlink=$oHTTP.ResponseText
$hotlink=StringRegExpReplace(stringmid($hotlink,StringInStr($hotlink,"https")),'[/"}]',"")
Return $hotlink

EndFunc


Func filename($filepath)
Local $file=StringSplit($filepath,"\")
Return $file[(ubound($file)-1)]
EndFunc

saludos

Edited November 12, 2013 by Danyfirex

[AutID]

It doesn't work. Check your consolewrite output. It will always return the same link no matter what. That site is dead in my opinion. Or turned into an adds site.

Local $filepath = @DesktopDir & "\chat.txt"
$output = AnonFilesUpload($filepath)
ConsoleWrite(filename($filepath) & @CRLF)
ConsoleWrite($output & @CRLF)

Func AnonFilesUpload($filepath)

Local $sServerURL = "https://anonfiles.com/api/hotlink"
Local $boundary = "--------Boundary"

Local $Postdata = "--" & $boundary & @CRLF & _
"Content-Disposition: form-data; name=" & '"' & "file" & '"' & "; filename=" & '"' & filename($filepath) & '"' & @CRLF & _
"Content-Type: application/octet-stream" & @CRLF & @CRLF & _
FileRead($filepath) & @CRLF & _
"--" & $boundary & "--" & @CRLF



Local $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
$oHTTP.Open("POST", $sServerURL, False)
$oHTTP.SetRequestHeader("Content-Type", "multipart/form-data; " & "boundary=" & $boundary)
$oHTTP.Send($Postdata)
$oHTTP.WaitForResponse()
$hotlink = $oHTTP.ResponseText
$hotlink = StringRegExpReplace(StringMid($hotlink, StringInStr($hotlink, "https")), '[/"}]', "")
Return $hotlink
EndFunc


Func filename($filepath)
Local $file = StringSplit($filepath, "\")
Return $file[(UBound($file) - 1)]
EndFunc

[Danyfirex]

You're uploading the same file. use a diferent file. Not same MD5 or hash.

 

saludos

[AutID]

I am not uploading the same file. It is just an example. Whatever i upload it will return the same link. And the link isnt for the file. It's a link of the site...