zydronium/RDSFactor
1
0
Fork 0
mirror of https://github.com/jakobadam/RDSFactor.git synced 2025-08-02 14:31:50 +02:00
Code Issues Projects Releases Packages Wiki Activity

Use the Packet methods to send RADIUS replies.

Browse source
This commit is contained in:
Jakob A. Dam 2015-03-27 14:14:41 +01:00 • committed by Jakob Aarøe Dam
parent d7d04258e1
commit 94c9dc0275
2 changed files with 64 additions and 112 deletions
Download patch file Download diff file Expand all files Collapse all files

4
CICRadarR/RADIUSPacket.vb
View file

@ -223,6 +223,10 @@ Public Class RADIUSPacket
mServer.SendAsResponse(New RADIUSPacket(RadiusPacketCode.AccessReject, mIdentifier, Nothing, mEndPoint), mAuthenticator)
End Sub
Public Sub SendAccessChallenge(ByVal attributes As RADIUSAttributes)
mServer.SendAsResponse(New RADIUSPacket(RadiusPacketCode.AccessChallenge, mIdentifier, attributes, mEndPoint), mAuthenticator)
End Sub
Private Function XorBytes(ByVal oper1() As Byte, ByVal oper2() As Byte) As Byte()
Dim res() As Byte = {}
If oper1.Length <> oper2.Length Then Return res