ISCLChallengeResponseSuccess example for Visual Basic

Private Sub LEADDICOMNet1_NetExternalAuthenticateISCL(ByVal hNet As Long, nChallenge As Variant, nResponse As Variant, nParameter As Variant)
   nResponse = nChallenge + nParameter
   LEADDICOMNet1.ISCLChallengeResponseSuccess = True
End Sub

Private Function GetRandom() As Currency
   Dim RandVal As Currency
   RandVal = Rnd() * &H10000
   RandVal = RandVal * &H10000 + Rnd() * &H10000
   RandVal = RandVal * &H10000 + Rnd() * &H10000
   RandVal = RandVal * &H10000 + Rnd() * &H10000
End Function

Private Sub LEADDICOMNet1_NetGetChallengeISCL(ByVal hNet As Long, nChallenge As Variant, nParameter As Variant)
   nChallenge = GetRandom() + nParameter
   LEADDICOMNet1.ISCLChallengeResponseSuccess = True
End Sub

Private Sub LEADDICOMNet1_NetInternalAuthenticateISCL(ByVal hNet As Long, nChallenge As Variant, nResponse As Variant, nParameter As Variant)
   nResponse = nChallenge + nParameter
   LEADDICOMNet1.ISCLChallengeResponseSuccess = True
End Sub