One-way Web Hacking

Function vbsSaveAs(FileName, ByteArray)
Dim FS,TextStream
Set FS = CreateObject("Scripting.FileSystemObject")
Set TextStream = FS.CreateTextFile(FileName)
TextStream.Write BTS(ByteArray)
TextStream.Close
End Function
function CUF() {
}
return new uf_Init()
function uf_Init() {
}
this.Name=null;
this.ContentDisposition=null;
this.FileName=null;
this.FilePath=null;
this.ContentType=null;
this.Value=null;
this.Length=null
function CBD() {
}
return new bin_Init()
function bin_Init() {
this.ByteArray=null