From: "Antti Kurenniemi" 

Dude, that's VB code... you're getting a bit old, aren't you? 


Antti Kurenniemi
(I'll see if I can read that...)

"Geo."  wrote in message
news:432ee5d9$1{at}w3.nls.net...
> 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