GetString -> ToString

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

View file

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

View file

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