I need the source code in VB6 or a COM activex (with source code) that will do all the radius server processes:
authenticate (CHAP and PAP) and accounting.
I don't need the interface with database, only the function to authenticate.
For the accounting, i need a function to send a START message with custom reply attributes, and a STOP message.
In particular, i need:
1. function fired when a radius authentication packet coming in. The function have userid, password (in clear text), identifier and
IP address of the client. The reply of the function is boolean: true if authentication is correct, false if not.
I will do the userid and password check. Identifier is the octect extracted from radius access request packet.
call this RadiusAuthenticate (or wathever you seems it correct)
2. sub fired after successfull authentication to send radius account data, in particular i need to send
the "session timeout" 27 attribute. Better if it's possibile to send more attributes.
I'll call the sub using sessionID parameters call this sub RadiusAccount
I need that you manage the complete winsock stack, using winsock activex component or using api,
whatever is better for you.
public function RadiusAuthenticate (userid as string, password as string, nasIP as string, clientIP as string, ....) as boolean
' here i will write the code myself to authenticate
and after you have to send the packed that authentication is ok or not in according of the result of the function.
Hope is all clear. Please tell me if there's something that you haven't understand.