forked from greearb/lanforge-scripts
-
Notifications
You must be signed in to change notification settings - Fork 0
/
calc_autn.pl
executable file
·59 lines (51 loc) · 1.22 KB
/
calc_autn.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/usr/bin/perl
##
## Calculated EAP-AKA AUTN based on:
## AUTN = (SQN xor AK) || AMF || MAC = 48 + 16 + 64 = 128 bits
##
use strict;
use warnings;
use diagnostics;
use Carp;
$SIG{__DIE__} = sub{Carp::confess(@_)};
use Getopt::Long;
$| = 1;
our $usage = qq($0: calculate AUTN
All input is in ascii hex.
--sqn SQN
--ak AK, output of f5
--amf AMF for test-set configuration
--mac MAC, output of f1
Example for test-set 19 (4.3.19) from 3GPP TS 35.208, v6.0.0 Release 6
$0 --sqn 16f3b3f70fc2 --ak ada15aeb7bb8 --amf c3ab --mac 2a5c23d15ee351d5
);
our $sqn = "";
our $ak = "";
our $amf = "";
our $mac = "";
GetOptions (
'sqn=s' => \$::sqn,
'ak=s' => \$::ak,
'amf=s' => \$::amf,
'mac=s' => \$::mac,
) || die("$::usage");
#AUTN = (SQN xor AK) || AMF || MAC = 48 + 16 + 64 = 128 bits
print "AUTN for SQN: $sqn AK: $ak AMF: $amf MAC: $mac\n";
my $i;
my @sqnc = split("", $sqn);
my @akc = split("", $ak);
if (@sqnc != 12) {
die("sqn must have 12 ascii bytes.");
}
if (@akc != 12) {
die("akc must have 12 ascii bytes.");
}
for ($i = 0; $i<12; $i++) {
my $v = hex($sqnc[$i]);
$v ^= hex($akc[$i]);
printf "%1x", $v;
}
print $amf;
print $mac;
print "\n";
## eof