152 lines
4.2 KiB
Smalltalk
152 lines
4.2 KiB
Smalltalk
"
|
|
(C) 2010-2012 by Holger Hans Peter Freyther
|
|
All Rights Reserved
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Affero General Public License as
|
|
published by the Free Software Foundation, either version 3 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Affero General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Affero General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
"
|
|
|
|
Object subclass: GSMAuthenticatorBase [
|
|
| connection onAccept onReject |
|
|
<category: 'OsmoMSC-GSM-Authentication'>
|
|
<comment: 'I am the base class for authenticating a given
|
|
subscriber. My subclasses can either allow everyone, store
|
|
the IMSI and IMEI or be fully GSM compliant and ask a HLR
|
|
for an authentication tuple.
|
|
When calling the callbacks make sure to go through the
|
|
connection>>#takeLocks: selector to take the required locks.'>
|
|
|
|
connection: aCon [
|
|
<category: 'creation'>
|
|
connection := aCon.
|
|
]
|
|
|
|
connection [
|
|
<category: 'access'>
|
|
^ connection
|
|
]
|
|
|
|
onAccept: aBlock [
|
|
<category: 'creation'>
|
|
"Called when the connection is accepted"
|
|
onAccept := aBlock
|
|
]
|
|
|
|
onReject: aBlock [
|
|
<category: 'creation'>
|
|
"Called when the connection is rejected"
|
|
onReject := aBlock
|
|
]
|
|
|
|
start: aMsg [
|
|
<category: 'auth'>
|
|
"Start authentication with the initial message."
|
|
^ self subclassResponsibility
|
|
]
|
|
|
|
onData: aMsg [
|
|
<category: 'auth'>
|
|
"Called with data from the GSM connection"
|
|
^ self subclassResponsibility
|
|
]
|
|
|
|
cancel [
|
|
<category: 'auth'>
|
|
"The GSM Connection has failed cancel everything."
|
|
^ self subclassResponsibility
|
|
]
|
|
|
|
nextPut: aMsg [
|
|
connection nextPutData: (OsmoGSM.BSSAPDTAP initWith: aMsg
|
|
linkIdentifier: 0).
|
|
]
|
|
]
|
|
|
|
GSMAuthenticatorBase subclass: GSMNullAuthenticator [
|
|
<category: 'OsmoMSC-GSM-Authentication'>
|
|
<comment: 'I accept everything...'>
|
|
|
|
start: aMsg [
|
|
onAccept value: self.
|
|
]
|
|
|
|
onData: aMsg [
|
|
^ self shouldNotImplement
|
|
]
|
|
|
|
cancel [
|
|
"Nothing"
|
|
]
|
|
]
|
|
|
|
GSMAuthenticatorBase subclass: GSMIdentityAuthenticator [
|
|
| state timeout |
|
|
<import: OsmoGSM>
|
|
<category: 'OsmoMSC-GSM-Authentication'>
|
|
<comment: 'I query for the IMSI and IMEI but do this in an insecure
|
|
way and will never switch on the crypto. I will ask for the IMSI and
|
|
IMEI'>
|
|
|
|
cancel [
|
|
"Cancel all timers"
|
|
timeout ifNotNil: [timeout cancel. timeout := nil].
|
|
]
|
|
|
|
start: aMsg [
|
|
"TODO we could take the IMSI from the first message but this
|
|
is mostly for educational purpose."
|
|
self askForIMSI.
|
|
]
|
|
|
|
askForIMSI [
|
|
| req |
|
|
|
|
timeout := Osmo.TimerScheduler instance
|
|
scheduleInSeconds: 5 block: [self timeOut].
|
|
|
|
"I ask for the IMSI."
|
|
req := GSM48IdentityReq new.
|
|
req idType type: GSM48IdentityType typeIMSI.
|
|
state := #askForIMSI:.
|
|
self nextPut: req toMessage.
|
|
]
|
|
|
|
askForIMSI: aIdResponse [
|
|
connection
|
|
addInfo: 'IMSI'
|
|
value: aIdResponse mi imsi.
|
|
self logNotice: 'GSMIdentityAuthenticator(srcref:%1) got IMSI(%2).'
|
|
% {connection srcRef. aIdResponse mi imsi} area: #bsc.
|
|
timeout cancel.
|
|
onAccept value: self.
|
|
]
|
|
|
|
onData: aMsg [
|
|
[
|
|
self perform: state with: aMsg.
|
|
] on: Exception do: [:e |
|
|
e logException: 'GSMIdentityAuthenticator(srcref:%1) failed dispatch.'
|
|
% {connection srcRef} area: #bsc.
|
|
timeout cancel.
|
|
onReject value: self.
|
|
].
|
|
]
|
|
|
|
timeOut [
|
|
self logError: 'GSMIdentityAuthenticator(srcref:%1) no reply to %2'
|
|
% {connection srcRef. state} area: #bsc.
|
|
state := #timedout:.
|
|
connection takeLocks: [onReject value: self].
|
|
]
|
|
]
|