zydronium/RDSFactor
1
0
Fork 0
mirror of https://github.com/jakobadam/RDSFactor.git synced 2025-07-22 17:45:54 +02:00
Code Issues Projects Releases Packages Wiki Activity

GetString -> ToString

Browse source
This commit is contained in:
Jakob A. Dam 2015-03-31 15:09:32 +02:00 • committed by Jakob Aarøe Dam
parent cc67ff7039
commit 0e41b3a182
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
CICRadarR/RADIUSAttributes.vb
View file

@ -198,7 +198,7 @@ Public Class RADIUSAttribute
End Get End Get
End Property End Property
Public Function GetString() As String Public Overrides Function ToString() As String
Return ConvertToString(mValue) Return ConvertToString(mValue)
End Function End Function

6
CICRadarR/RADIUSPacket.vb
View file

@ -87,7 +87,7 @@ Public Class RADIUSPacket
Get Get
If mCode <> RadiusPacketCode.AccessRequest Then Return Nothing If mCode <> RadiusPacketCode.AccessRequest Then Return Nothing
If mAttributes.GetFirstAttribute(RadiusAttributeType.UserName) Is Nothing Then Return Nothing If mAttributes.GetFirstAttribute(RadiusAttributeType.UserName) Is Nothing Then Return Nothing
Return mAttributes.GetFirstAttribute(RadiusAttributeType.UserName).GetString Return mAttributes.GetFirstAttribute(RadiusAttributeType.UserName).ToString
End Get End Get
End Property End Property
@ -166,7 +166,7 @@ Public Class RADIUSPacket
If username Is Nothing Then Return False If username Is Nothing Then Return False
Dim userpass As RADIUSAttribute = mAttributes.GetFirstAttribute(RadiusAttributeType.UserPassword) Dim userpass As RADIUSAttribute = mAttributes.GetFirstAttribute(RadiusAttributeType.UserPassword)
If userpass Is Nothing Then Return False If userpass Is Nothing Then Return False
Dim password As String = authList.GetSharedSecret(username.GetString) Dim password As String = authList.GetSharedSecret(username.ToString)
If password = "" Then Return False If password = "" Then Return False
Dim passlen As Integer = password.Length \ 16 Dim passlen As Integer = password.Length \ 16
@ -193,7 +193,7 @@ Public Class RADIUSPacket
hasher = Nothing hasher = Nothing
Return (ConvertToString(expect) = userpass.GetString) Return (ConvertToString(expect) = userpass.ToString)
End Function End Function
''' <summary> ''' <summary>