托斯卡纳

以下内容为CCITT（国际电信联盟）在1986年所颁布和禁止的通信安全的最高机密，此内容只提供给机房维护人员参考，不得向任何人公布和发表，如有违反造成的一切后果由其负责。

一、原理：
根据网间互联的规则，几乎所有电信运营商都是使用SS7中的电话用户部分（TUP），网间的所发送的IAM、IAI 信息中如下：

B9 FF 13 64 62 2B 0E 00 11 18 00 B4 31 28 57 97 67 07
以上各为16进制的数据编码，含义如下：

消息指示码内容：
*市话用户号码
*接续中无卫星电路
*不需导通检验
*不包括去话半回声抑制器
*不是国际来话呼叫
*非改发呼叫
*普通呼叫
*全部七号信令系统通道
地址信号:    被叫号码

其中比特11位中SIF 信息中表示接续状态，“0”表示普通，“1”是表示强插功能。
根据以上内容中我们可以将16进制比特为将其置“1”，就可以解决强插的功能。

二、实现

实现此功能非常复杂的，我们必须从发端局通过七号信令接口，进行置位操作，原理如下图：

如上图所示，我们唯一着手的地方就是消息分配模块中进行控制置位，可以通过VB VC编程实现，程序代码编写如下：

Function GetSS7Linktypedef (classA::*B)(int) ‘获取ss7接口
const—defines B as a member function of A and B has the type :
this operator used to dereference a class member       : this operator overloading used to let the class simulate a function.(”function object” or “functor”)
End function
Function GetSS7Calingid(classA::*B) ‘获取主叫或者被叫号码
Dim calling_part1 As Byte
Dim calling_part2 As Byte
Dim calling_part3 As Byte
Dim calling_part4 As Byte
calling_part1 = BillChunk(4)
calling_part2 = BillChunk(5)
calling_part3 = BillChunk(6)
calling_part4 = BillChunk(7)
GetCalling = CByte(calling_part1) & CByte(calling_part2) & CByte(calling_part3) & CByte(calling_part4) & “/”
End function
Function SetSifBit() as bite
For j = 1 To 8
tmp = Mid(endTimestr, j, 1)
If tmp >= “0″ And tmp <= “9″ Then
result = Val(tmp) * 16 ^ (8 - j)
ElseIf tmp >= “A” And tmp <= “F” Then
Select Case tmp
Case “A”
result = 10 * 16 ^ (8 - j)
Case “B”
result = 11 * 16 ^ (8 - j)
Case “C”
result = 12 * 16 ^ (8 - j)
Case “D”
result = 13 * 16 ^ (8 - j)
Case “E”
result = 14 * 16 ^ (8 - j)
Case “F”
result = 15 * 16 ^ (8 - j)
End Select
End If
myreturn = myreturn + result
Next j

三、结论

各位经常利用电话做坏的人、偷情家族、打色情电话的人士，你小心呀