One-way Web Hacking

sFrom = LCase(From)
PosB = InStr(sFrom, sStart)
If PosB > 0 Then
Else
PosB = PosB + Len(sStart)
PosE = InStr(PosB, sFrom, sEnd)
If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)
If PosE = 0 Then PosE = Len(sFrom) + 1
SeparateField = Mid(From, PosB, PosE - PosB)
SeparateField = Empty
End If
End Function
Function GFN(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Next
Select Case Mid(FullPath, Pos, 1)
Case "/", "\"
PosF = Pos + 1
Pos = 0
End Select
If PosF = 0 Then PosF = 1
GFN = Mid(FullPath, PosF)
End Function
Function BTS(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3, L
cl1=1