One-way Web Hacking

Loop
Field.ContentDisposition=C_D
Field.FilePath=SFN
Field.FileName=GFN(SFN)
Field.ContentType=C_T
Field.Length=FC.Length
Set Field.Value=FC
Fields.Add FFN,Field
TCAEB=BTS(MidB(Binary,PCB+LenB(Boundary), 2))
iLB=TCAEB="--"
If Not iLB Then
POB=PCB
PCB=InStrB(POB + LenB(Boundary), Binary, Boundary)
End If
Set SeparateFields = Fields
End Function
Function GetHeadFields(ByVal Head, C_D, Name, FileName, C_T)
C_D=LTrim(SeparateField(Head,"content-disposition:",";"))
Name=(SeparateField(Head, "name=", ";"))
If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)
FileName = (SeparateField(Head, "filename=", ";"))
If Left(FileName, 1) = """" Then
FileName = Mid(FileName, 2, Len(FileName) - 2)
End If
C_T = LTrim(SeparateField(Head, "content-type:", ";"))
End Function
Function SeparateField(From, ByVal sStart, ByVal sEnd)
Dim PosB, PosE, sFrom