From: Randall Parker 

Geo,

My advice is turn it into a DLL yourself so that you know what is in the DLL.

Alternatively: Have him rewrite it in a non-compiled language like Perl or Python. It
would be very easy to rewrite it. Then you'd always be able to look in it to see what
it is doing.

Geo. wrote:
> I've got a user who want's a dll file loaded on a web server here, I asked
> him for the source to the dll so I could see what it's doing and he sent me
> the below. Since I'm a novice with C++ I figured I'd ask what some of the C
> types here think of this as far as internet security, it didn't appear to me
> to have a lot of input checking so passing bad info in order to crash it
> might be possible but I dunno, would appreciate your opinion.
>
> Geo.
>
>
>
> VERSION 1.0 CLASS
> BEGIN
>   MultiUse = -1  'True
>   Persistable = 0  'NotPersistable
>   DataBindingBehavior = 0  'vbNone
>   DataSourceBehavior  = 0  'vbNone
>   MTSTransactionMode  = 0  'NotAnMTSObject
> END
> Attribute VB_Name = "ClsFinance"
> Attribute VB_GlobalNameSpace = False
> Attribute VB_Creatable = True
> Attribute VB_PredeclaredId = False
> Attribute VB_Exposed = True
>
> Public Function GetPV(dblRate As Double, dblPer As Double, dblPmt As Double,
> dblFv As Double)
> 'GetPV = Format(PV(dblRate, dblPer, dblPmt, dblFv), "Currency")
> GetPV = PV(dblRate, dblPer, dblPmt, dblFv)
> End Function
>
> Public Function GetPmt(dblRate As Double, dblPer As Double, dblPv As Double,
> dblFv As Double)
> 'GetPmt = Format(Pmt(dblRate, dblPer, dblPV, dblFv), "Currency")
> GetPmt = Pmt(dblRate, dblPer, dblPv, dblFv)
> End Function
>
> Public Function DoFormat(varExpression As Variant, strFormat As Variant)
> DoFormat = Format(varExpression, strFormat)
> End Function
>
> Public Function GetIPmt(dblRate As Double, Per As Double, NPer As Double,
> dblPv As Double, dblFv As Double)
> GetIPmt = IPmt(dblRate, Per, NPer, dblPv, dblFv)
> End Function
>
>
> Public Function GetPPmt(dblRate As Double, Per As Double, NPer As Double,
> dblPv As Double, dblFv As Double)
> GetPPmt = PPmt(dblRate, Per, NPer, dblPv, dblFv)
>
> End Function
>
> Public Function GetNextIR(dblCurRate As Double, dblMargin As Double,
> dblIndex As Double, dblMaxRate As Double, dblMinRate As Double, dblMaxChange
> As Double)
>
> If (dblCurRate  dblMaxChange)
> Then
>     GetNextIR = dblCurRate + dblMaxChange
>     Exit Function
> End If
>
> If (dblCurRate > dblMaxRate) And (dblCurRate - dblMaxRate > dblMaxChange)
> Then
>     GetNextIR = dblCurRate - dblMaxChange
>     Exit Function
> End If
>
> If Abs(dblCurRate - (dblMargin + dblIndex)) > dblMaxChange Then
>     If dblCurRate < dblMargin + dblIndex Then
>         If dblCurRate + dblMaxChange > dblMaxRate Then
>             GetNextIR = dblMaxRate
>             Exit Function
>         Else
>             GetNextIR = dblCurRate + dblMaxChange
>             Exit Function
>         End If
>     Else
>         If dblCurRate - dblMaxChange < dblMinRate Then
>             GetNextIR = dblMinRate
>             Exit Function
>         Else
>             GetNextIR = dblCurRate - dblMaxChange
>             Exit Function
>         End If
>     End If
> Else
>     If dblMargin + dblIndex > dblMaxRate Then
>         GetNextIR = dblMaxRate
>         Exit Function
>     Else
>         If dblMargin + dblIndex < dblMinRate Then
>             GetNextIR = dblMinRate
>             Exit Function
>         Else
>             GetNextIR = dblIndex + dblMargin
>         End If
>     End If
> End If
>
>
> End Function
>
>

--- BBBS/NT v4.01 Flag-5