k               = dup( 16, aa )
op              = dup( 16, aa )
randx           = dup( 16, 00 )
sqn             = dup( 6, 00 )
amf             = dup( 2, 00 )

f1_mac_a        = milenage_f1( $k, $randx, $sqn, $amf, $op )
if $f1_mac_a != AFDBE3276549ACBF
    ?
    pause
endif

tmp             = milenage_f2345( $k, $randx, $op )
f2_res          = mid( $tmp, 0, 8 )
f3_ck           = mid( $tmp, 8, 16 )
f4_ik           = mid( $tmp, 24, 16 )
f5_ak           = mid( $tmp, 40 )
if $f2_res != C42F454F5FDEC1A1
    ?
    pause
endif
if $f3_ck != 701FB9D446EE896D96B0E97685E35693
    ?
    pause
endif
if $f4_ik != 173438EF8FBD185DE382834F72209F7E
    ?
    pause
endif
if $f5_ak != 600D51C33584
    ?
    pause
endif

autn            = $f5_ak $amf $f1_mac_a
if $autn != 600D51C335840000AFDBE3276549ACBF
    ?
    pause
endif

f1star_mac_s    = milenage_f1star( $k, $randx, $sqn, $amf, $op )
if $f1star_mac_s != A53F5C8E60EEF2C4
    ?
    pause
endif

f5star          = milenage_f5star( $k, $randx, $op )
if $f5star != 1A1BC57B2D4E
    ?
    pause
endif

//----------- 使用opc模式
opc             = milenage_compute_opc( $op )
f1_mac_a        = milenage_opc_f1( $k, $randx, $sqn, $amf, $opc )
if $f1_mac_a != AFDBE3276549ACBF
    ?
    pause
endif

tmp             = milenage_opc_f2345( $k, $randx, $opc )
f2_res          = mid( $tmp, 0, 8 )
f3_ck           = mid( $tmp, 8, 16 )
f4_ik           = mid( $tmp, 24, 16 )
f5_ak           = mid( $tmp, 40 )
if $f2_res != C42F454F5FDEC1A1
    ?
    pause
endif
if $f3_ck != 701FB9D446EE896D96B0E97685E35693
    ?
    pause
endif
if $f4_ik != 173438EF8FBD185DE382834F72209F7E
    ?
    pause
endif
if $f5_ak != 600D51C33584
    ?
    pause
endif

autn            = $f5_ak $amf $f1_mac_a
if $autn != 600D51C335840000AFDBE3276549ACBF
    ?
    pause
endif

f1star_mac_s    = milenage_opc_f1star( $k, $randx, $sqn, $amf, $opc )
if $f1star_mac_s != A53F5C8E60EEF2C4
    ?
    pause
endif

f5star          = milenage_opc_f5star( $k, $randx, $opc )
if $f5star != 1A1BC57B2D4E
    ?
    pause
endif

tmp             = milenage_gsm( $k, $randx, $op )
sres            = mid( $tmp, 0, 4 )
kc              = mid( $tmp, 4 )
if $sres != 9BF184EE
    ?
    pause
endif
if $kc != 1219EB023E9058DD
    ?
    pause
endif

tmp             = milenage_opc_gsm( $k, $randx, $opc )
sres            = mid( $tmp, 0, 4 )
kc              = mid( $tmp, 4 )
if $sres != 9BF184EE
    ?
    pause
endif
if $kc != 1219EB023E9058DD
    ?
    pause
endif